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TSX Initialization * # •«• 
Initialization taking over control from RT-1 1 * » « 

— Load a segment over TSINIT 

— Load system overlays over TSINIT 

— Set up entry point vector for overlay 

— Remember memory position of system overlays 

— Set up device vectors 

— Set up an interrupt vector for a device 

— Make device table entry for PI device 

— Determine the type of a line 
Initialization done with RT-11 running #■»■■» 

Subroutines * * » 

— Allocate a work buffer 

— Allocate Region Control Blocks for handlers 

— Open system swap file 

— Open PLAS region swap file 

— Initialize spooling system 

— Set up spooling to a CL device 

— See if a device name is a CL or CI unit 

— Convert device name to dev index and unit # 

— Force a 2-char dev name to unit 

— Allocate buffer space 

— Allocate silo buffers for lines 

— Allocate buffers in extended memory region 

— Open channel to TSKMON 

— Initialize CL handler 

— Initialize IND program 

— Initialize TSXUCL data file 

— Initialize memory management 

— Set up information about available memory space 

— Set up info about job context area 

— Allocate memory usage table 

— Set up information about maximum job sizes 

— Load device handlers into memory 

— Load a device handler 

— Determine if a handler should be installed 

— Additional checking for handler installation 

— Set up device table entries for a device 

— Load device handler into low memory 

— Load handlers into extended memory 

— Load device handler into extended memory 

— Initialize pointer vector in a handler 

— Execute and handler load/fetch code 

— Perform I/O for handler load code 

— Set up KPAR5 to access a mapped handler 

— Turn off memory mapping to a handler 
, HANXMR Inoperative Pro versions 

— Determine which overlays go over TSINIT 

— Build overlay information table 

— Load any mapped system code regions 

— Allocate space for a system overlay region 

— Check for optional system overlay regions 

— Find an overlay to place over TSINIT 

— Load system overlay into high memory 

— Read and relocate system overlay 

— Load any shared run-time systems 

— Allocate space for data cache tables 
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OPNCHN — Open a TSX-Plus channel 

SETCHN — Copu RT-11 channel information into TSX system chan 

SETSY — Set up information about SY device 

RTFTCH — Fetch a RT-11 device handler 

CHKMEM — Check for memory space overflow 

PRTOCT — Print octal value 

PRTDEC — Print decimal value 
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INSCHK — Installation validation subroutines for Pro-350 

EDEXPL — Comments on encryption methods 

EDMrH2 — Encryption method 2 <XOR uiith PRN high bytes) 

EDMTH3 — Encryption/decryption meth 3 (swap bytes&shift bits) 
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1 000001 PROASM = 1 ; Assemble for Professioal 
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.TITLE TSINIT — TSX startup initialization 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSINIT 



TSINIT: 



There are tu»o external assembly-time switches related to assembling 
TSINIT for execution on a PRO or a PDP-11. 

The following values for the PROASM flag are defined: 

==> Assemble for PDP-11 (not Pro) only. 

1 ==> Assemble for Pro only. 

2 ==> Assemble for either PDP-11 or Pro execution. 

The following values for the PROCID flag are defined: 

==> Do not lock system to ID number. 

1 ==> Lock system to ID number. 



PROASM = 



IF 
ENDC 



PROCID 
PROCID 



. IF 
. IF 

. IFF 

. ENDC 
. ENDC 



NDF, PROASM 



i NDF, PROASM 

NDF, PROCID 
EQ, <PR0ASM-1> 
1 



; EQ, <PR0ASM-1> 

;NDF, PROCID 



; If PROASM not defined 

/Default value for PROASM if not defined 



; If PROCID not defined 

j If assembling for PRO only 

i Then check ID by default 

i If not assembling for PRO only 

i Then don't check ID number 



TSXPRO = 



. IF EQ, PROASM 
. GLOBL TSXPRO 


. ENDC 



i Define dummy base for TSXPRO if not PRO 



TSINIT is the initialization module of TSX that is executed once 
during system startup. Time-sharing character buffers and other 
run-time data areas are allocated over TSINIT. 

Copyright 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989. 
S8<H Computer Systems, Inc. 
Nashville, TN USA 



Macro calls 

. MCALL . LOOKUP, . ENTER, . READW, . SA VESTA TUS, . GVAL 

. MCALL . TRPSET, . SETTOP, . CLOSE, . TTYOUT, . PRINT, . PURGE 

. MCALL . DELETE, . WR.TTW, . SERR, . HERR, . EXIT, . UNLOCK 

. MCALL . FETCH, . RELEASE, . LOCK, . GTIM, . DATE, . DSTATUS 

. MCALL . SCCA, . CSTAT 

Global definitions 

. GLOBL TSINIT, INITGO, INITOP, PPTERM, PROITP, PROASM, PISRT 
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. OLOBL DSKBUF, PROBUF> FNDHRB, HANXMR 

Following global only needed for the Pro distribution 
creation program - MAKPRO and installation program - INSTSX 

IF NE, PROASM 

** Assemble this code if we are generating for a Pro 



IFF 



. GLOBL PROSIZ, PROINI, PROLIN, PROHAN, PRONOP 
. GLOBL PIHAN, PIDPTR.PIDRIV 
i NE, PROASM 



** Assemble this code if we are not generating for a Pro 

. GLOBL TSXPRO 

TSXPRO = 

## End of conditional Pro code 

. ENDC ; NE, PROASM 

Global references 

. GLOBL HANDSK, MAXDEV, NDVRCB, HANRCB, HANRCO 

. GLOBL LXCL, VSYDMP, STKLVL, INTSSZ, INDFIL, NXIVMH, EXCBUF 

. GLOBL VNUIP, NSIP, INSTBL, INSTBN, II**SZ, DCCSIZ, VNUMDC, NUMCDB 

. GLOBL NSCP, SCPFHD, SP*$SZ> CSHDEV, CSHDVN, VMXCSH, CD**SZ 

. GLOBL LSTPL, LMXNUM, MXCSR, MXVEC, RSR, INVEC, VHIMEM, CXTPAG 

. GLOBL LSWPBK, LSTSL, SWDBLK, SWPCHN> NUMDEV, CS*NMX, SCHED 

. GLOBL H. DSTS, DVSTAT, HANENT, H. GEN, FORK, INTEN, PNAME 

. GLOBL *SXON, LSWIO, LHIRBB, LHIRBE, LHIRBP, LHIRBG, LHIRBA 

. GLOBL LHIRBS, LHIRBC, VNCSLO, VNCXOF. VNCXON, SDDVU, VMSCHR, MAXSLO 

. GLOBL MPARO, MPAR16, PARENL, MPARFL, TSEMT, VDBFLO, DX*EBA 

. GLOBL H. SIZ, HANSIZ, H. DVSZ, DEVSIZ, LOMAP, MMENBL, UPAR7 

. GLOBL PSW, HIMAP, FSTDL, LSTDL, LINBUF, LINSIZ, NUMCCB, TKISEC 

. GLOBL FRKINI, FRKGEN, NUMFRK, FQ**SZ, H. CSR, H. INS, VSWPSL, DMYDEV 

. GLOBL LINEND, LOTBUF, LOTSIZ, LOTEND, KMNTOP, KMNHI, NSL, NDL 

. GLOBL DX*MPH, DX*NHM, DX*IBH, HANPAR, HANXIT, MAPPAR, LINSPC 

. GLOBL KMNPGS, KMNSTK, KMNSTR, KMNCHN, SROMMR, KPARO, PROFLG 

. GLOBL EMMAP, lOMAP, SR3MMR, lOPAGE, MAPSIZ, SR3FLG, NSPLDV 

. GLOBL UDDRO, IDSFLG 

. GLOBL UPARO, KPDRO, UPDRO, KPAR7, BASMAP, PTWRD, PTBYT, LOKMEM 

. GLOBL GTBYT, MPPHY, RELOC, BRKPT, TSGEN, TSEXEC, VSWPFL 

. GLOBL CW*GDH, CW*BTH, CW*LGS, CW*FB, CW*FGJ, MSGBAS, RPRVEC 

. GLOBL CWfUSR, CW*XM, CONFIG, CW«50H, JMPO, DTLX, USRBAS, WINBAS 

. GLOBL DATIML, DATIMH, RMON, C0NFG2, SG*ELG, SG*IOT, CSHBAS 

. GLOBL SG*PAR, SG*MTS, SG*MMU, SG«MTM, LTTPAR, LOKBAS, CSHVEC, LOKVEC 

. GLOBL SYSGEN, AUTHAN, AHEND, CLKRTI, TRP4, CW«PRO, TIOVEC 

. GLOBL TRPIO, TRP20, TRP24, EMTENT, TRP34, INIJMP, MHNSIZ 

. GLOBL TKIVAL, INRECV, OTRECV, INMXV, OTMXV, DHBFSZ, MXTYPE 

. GLOBL ZCLR, MXRBUF, MXDTR, INTMXl, *PHONE, LCDTYP, TIOBAS 

. GLOBL LDHBIB, LDHBIP, LDHB2B, CLVERS, CXTSIZ, CXTWDS, CXTPDR 

. GLOBL CLORSZ, TSXSIT, JM**SZ, VMXMON, MONFQH, CXTRMN, CXTflAS 

. GLOBL ILSW2, *NOIN, LSW3, MXLPR, CW*ESP, CLTOTL, RMNPDR, MA*SYS 

. GLOBL SFCB, SFCBND, SFCBFH, SFCBSZ, NSPLFL, NSPLBL, INTSTK. INTSND 
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. GLOBL NFRESB, PVSPBL. VMXWIN, DW**SZ, LDVERS, CW*QBS 

. GLOBL FC*LBN, VMLBLK, VMXSF, VMXSFC, FF**SZ, FW**SZ> SWPJOB, SWPPOS 

. GLOBL TSR, RBR, RDINT> LSTMX, SS. CHAIN, JSWLOC, MU*TXT, SLTSIZ 

. GLOBL NUMIOQ, FREIOQ, UMODE, FPTRAP, MXLNT, DI*LD, DI*CL, CLSTS 

. GLOBL FREPGS, lOQSIZ, SYUNIT, UMSYTPi DI*TT, CXTBUF, SSEND 

. GLOBL SYINDX, MONVEC, KMNBAS, SDANAM, VBUSTP, MINCTR 

. GLOBL NUMRDB, RDB, RDBEND, RT*SKP, RT*TOP, NLINES, SHRRCB, SHRRCN 

. GLOBL RT*BAS, UPMODE, SPLNB. CSHALC, NIOL, CHNSIZ, RC**SZ, VNGR 

. GLOBL UPAR6, UPDR6, RT**SZ, VINABT, *DEAD, LSW6 

. GLOBL SYTIMH, SYSDAT, TRP250, ODTTRP, TRP14, SYTIML 

. GLOBL DS*ABT, CL*ORB, CL*ORE; CL*ORG, CL*ORP, CL*ORA 

. GLOBL «TAB, *FORM, CO*TAB, CO*FF, CO*DEF, CL*EPS, CLEOFS 

. GLOBL CL*OPT. CL*STA, CL*ORS, LSTLIN, VCSHNB, CL*EPP, CL*EPN 

. GLOBL CCLSAV, SPLND, SDCB, SPLDEV, SPLANM, MIODBG 

. GLOBL SDNAME, SDCHAN, SDCBSZ, SPLDVN, DTYPE 

. GLOBL DS*NRD, DX«NMT, *SBIT, C0*8BT, UEXRTN, VUXIFL 

. GLOBL SPLBLK, SPLCHN, MVSIZ> MEMPAR, UEXINT, DX*NRD 

. GLOBL NMSNMB, SNMSHD, SB**SZ, VPMSIZ, PMPAR, PMCELS 

. GLOBL NUMDCD, MEM256, LOKCSH, DC**SZ 

. GLOBL JCXPGS, MXJMEM, VDFMEM> DFJMEM, TK5VAL, TK3SVL 

. GLOBL VPAR6, lOTIMR, ERRLOG, VNFCSH, FC**SZ 

. GLOBL 0. ADR, 0. BLK, 0. PAR, 0. SIZ, VPAR5, KPAR5, DZOINT, DHOINT 

. GLOBL OVRADD, *OVRH, SYSMAP, MAPSYS, VSLEDT, LCLUNT 

. GLOBL UBUSMP, UMRADR, lOMAP, QBUS, UNIBUS, DX*NST 

. GLOBL DVFLAG, DX*DMA, RT*NAM, DS*DIR, LDDEVX, DS*VSZ 

. GLOBL INDSAV, INDDBL, INDTSV, INDDBS, DS*SFN 

. GLOBL SYNAME, UCLNAM, RSFBLK, VPLAS, SEGCHN 

. GLOBL MXJADR, *MEMSZ, PHYMEM, SG*TSX, CDX*DH 

. GLOBL CLHEAD, CLSIZE, CLDEVX, C. CSW, C. SBLK, C. DEVQ, CIDEVX 

. GLOBL VU*CL, VUCLMC, UK*«SZ, US**SZ, UC**SZ, UCLBLK, UCLDAT 

. GLOBL VLDSYS, VMXMSG, VMAXMC, MB**SZ, MR**SZ, CS«OPN, CS*ENT 

. GLOBL DX*MAP, MIOFLG, M1*SBP, MI*LNK, MIOBHD, VMIOSZ 

. GLOBL VMIOBF, MI*«SZ, MW**SZ, MIONWB, MIOWHD, MW*LNK 

. GLOBL CSHSIZ, CSHBFP, CA*BLK, CA*DVU, CA*WCT, VMXMRB 

. GLOBL CA*UFL, CA*UBL, CA*HFL, CA*HBL, CA$HSH, NUMRDB 

. GLOBL SRTSIZ, SMRSIZ, CCBHD, CC**SZ, CDX*DZ, MF*LIN 

. GLOBL CDX*DL, HF«TSB, MH*SCR, LMXLN, HF*LIN, HF*RIE, HF*TIE 

. GLOBL MH*LPR, DM*CSR, MF*LE, DM*LSR, HF*MC, MF*CS, MF*CM 

. GLOBL CDX*VH, VH*CSR, VH*LPR, MH*PBR, VF*TIE, VF*RIE, VF*MR 

. GLOBL VF*LIN, VF*SC, VF*RE, VH*LCR, VHOINT, TTINCP 

. GLOBL *HARD, LOUTIR, LINIR, NEDCHR, CLOTIR, CLINCP, FSTIOL, LSTHL 

. GLOBL SYSVER, SYSUPD, DI*DU, DI*XL, DI*MU, CL*LIX 

. GLOBL CL*LEN, D1*PI, GENTOP 

. GLOBL LSW5, DX*NCA, KPAR6, CLKVEC 

Macros to enable and disable interrupts 

•MACRO DISABL i Disable interrupts 

BIS #340, @#PSW 

. ENDM DISABL 

. MACRO ENABL 

BIC #340, @#PSW 

. ENDM ENABL 



Offsets in block of ODT REL file. 
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0_' 



172 
173 
174 
175 
176 
177 
178 
179 
ISO 
181 
182 
183 
184 

185 
186 
187 
188 
189 
190 
191 
192 

193 

194 

195 

196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 



000000 
000020 
000026 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000062 
000070 
000072 
000100 
000102 
000110 
000112 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 



000040 
000042 
000052 
000056 
000060 
000062 
001000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

075250 

073376 

075250 

073376 

075250 

073376 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

025350' 

004000 

000322 ' 



052077 
110466 
046543 
103112 
012700 
077167 
100040 
075250 
045640 



STA 
STK 
RSZ 
OSZ 
RID 
RBD 



S5 


40 


= 


42 


=; 


52 


= 


56 


ss 


60 


= 


62 


BAS = 


1000 


Data areas 





PROGRAM START ADDRESS 

INITIAL STACK POINTER 

ROOT SIZE 

OVERLAY SIZE 

REL FILE ID 

DISPLACEMENT TO 1ST REL BLOCK 

BASE ADDRESS ODT WAS LINKED FOR 



AREA: 
000000 000000 NFSBLK: 
000000 000000 

ODTFLG 
ODTTOP 
CCAFLG 
CLKIOO 
RTTRP4 
RTMNVC 
SAVBLK 
TSXSAV 



BLKW 8. 

WORD 0, 0, 0, 0, 0, 



; EXTENDED TO 6 WORDS FOR . CSTAT 



100020 000000 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
BLKW 
RAD50 




O 


O 

5 
/SY TSX 



SAV/ 



100003 051646 KMNNAM: . RAD50 /SY TSKMONSAV/ 
011504 000000 CCLNAM: . RAD50 /SY CCL SAV/ 
000000 000000 DSTBLK: . WORD 0, 0, 0, 



XMVBAS: 

NMXHAN: 

HMAP : 

FETDEV 

TOPMEM 

FMEMHI 

FMEMLO 

OVLBAS 

FILBLK 

CURDEV 

CUR NAM 

PROBUF 

WRKBUF 

WRKSIZ 

RTVPTR 

The fo 
def ini 
one of 
relati 

R50MSS = 

R50WIN = 

R50LQK = 

R50USR = 

R50CSH = 

R50TI0 = 

R50TT 

R50SY 

R50LD 



WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

WORD 

1 loujing 

tions t 
these 

ve (cmp 
•••^RMSG 
•"•RWIN 
•''RLOK 
■'^RUSR 
•-■RCSH 
•^RTIO 
■^RTT 
"RSY 
•"•RLD 



























INITOP 

2048. 

RTVEND 

RAD50 
o conse 
cells a 

RSOxxx 



64-byte block # below high alloc memory 
64-byte block # above top of low alloc memory 
Start loading overlays over TSINIT from here 



i Initially no limit on system version number 
definitions were converted from word cells to 
rve space at V6. 40. All subsequent references to 
re converted from: 
»rl) to immediate <cmp #R50xxx>rl). 



. njj „ 

i "SY " 
i "LD " 
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224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 



235 
236 



238 

239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 

256 
257 
258 
259 
260 
261 



000160 
000166 
000174 
000176 
000200 
000206 
000210 
000216 
000220 
000226 
000230 
000232 
000234 
000236 
000240 



00024J 



000244 
000252 
000254 



000262 



062550 
012240 
012276 
012305 
013630 
013666 
013675 
105610 
046770 
057164 
100040 
012240 
000000 
000 
075250 
100020 
075250 
070524 
075250 
073376 
000000 
000000 
000000 
000000 
000000 



000000 



000001 



075250 
100020 
000000 



015270 
013630 

110 
114730 

075273 

035164 



075250 
062550 



000000 
057164 
000000 



R50PI 

R50CL 

R50CL0 

R50CL7 

R50C1 

R50C10 

R50C17 

R50VM 

R50LS 

R500DT 

SKPDEV: 



= -"RPI 
= -^RCL 
= -^RCLO 
= •*'RCL7 
= ■"'RCl 
= "^RCIO 
= ••^RC17 
= ^RVM 
= -"RLS 
= •'^RODT 
RAD50 



i "PI " 
; "CL " 



i "CI 



; "VM 
: "I c; 



/TT DK SY CL CI PI 



GTLIN: .BYTE 0,110 

HANNAM: . RAD50 /SY XXX TSX/ 

ODTBLK: . RAD50 /SY SYSODTREL/ 

RAD50 /SY IND SAV/ 



INDNAM: 

RLBF: 

RLBFND 

ODTSTA 

MEMLIM 

HGENFL 



WORD 
WORD 
WORD 
WORD 
WORD 











062550 
000000 



000000 
000000 



000 



Initialization configuration word 
ICONFG: .WORD i Initial i zation configuration word 

Flag bits in ICONFIG 
EXTLSI = 1 ;Q-bus system with more than 256Kb 

Simulated shared run-time control block for PI handler 
PISRT: . RAD50 /SY PI TSX/ 
. WORD 0, 0, 

Byte data cells 

PPTERM: .BYTE ; 1 if printer port is T/S terminal 

. EVEN 
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7 






8 






9 






10 






11 




000000 


12 




000001 


13 




000002 


14 




000003 


15 






16 


000264 




17 


000264 


004 


IS 


000267 


005 


19 


000272 


005 


20 


000275 


005 


21 


000300 


005 


22 


000303 


005 


23 


000306 


005 


24 


000311 


005 


25 


000314 




26 


000314 


005 


27 


000317 


005 


28 


000322 




29 
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The folloujing table is used to identify the supporting RT-11 monitor 
version number for those features which depend on it. 

The DL/ XL and MU handlers require a minimum supporting RT-11 version. 
The CL version number emulates the supporting RT-11 XL's ***VER. 
The LD translation table format changed at RT-11 V5. 4. 

The format of the table is: 

j Major system version number 

; Minor system version number (update number) 

i Emulated XL version number 

;Size of a version table entry 



000 
000 
001 
035 
006 
044 
002 
003 

004 
005 







RT*VER 


= 






RT*UPD 


= 1 






CL*VER 


= 2 






RTV*SZ 


= 3 




i 

RTVER: 




; V4. is 


377 


RT40: 


. BYTE 


4, 0, -1 


377 


RT50: 


. BYTE 


5. 0. -1 


020 


RT51: 


. BYTE 


5, 1. 16. 


020 


RT51X: 


. BYTE 


5,35, 16. 


020 


RT51B: 


. BYTE 


5,6, 16. 


020 


RT51C: 


. BYTE 


5, 44, 16. 


021 


RT52: 


. BYTE 


5,2, 17. 


021 


RT53: 
RTVDEF: 


. BYTE 


5,3, 17. 


022 


RT54: 


. BYTE 


5, 4, 18. 


022 


RT55: 
RTVEND: 


. BYTE 


5, 5, IS. 



EVEN 



the earliest supported version of RT-11 
i 4. did not support XL 
i 5. did not support XL 

i Another flavor of 5. 1 



Default emulation version 



I 
I 
I 
I 
I 
I 

i 
f 
i 
I 

( 
i 

€ 
i 
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TSINIT - 


— TSX s 


tartup 


1 






2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 




000000 


17 




000001 


18 




000002 


19 




00C004 


20 






21 






22 






23 


000322 




24 


000322 




25 


000326 




26 


000332 




27 


000336 





The following tables are used to determine the minimum RT-11 monitor 
and update versions required for particular devices. 
There are three arguments for each handler definition: 

Arg 1 = Handler id code. 

Arg 2 = Ptr to minimum acceptable RT-11 version and update entry. 

. MACRO HANVER DEVID, MNVPTR 

. BYTE DEVID ! ID code for device type 

.BYTE /Unused filler entry 

.WORD MNVPTR i Minimum RT-11 version and update label 

. ENDM HANVER 



Define offsets into handler version table 



HV*ID 

HV*DMY = 

HV«VER = 

HV*$SZ = 




1 
2 
4 



i Handler identification code 

/Unused entry 

/Minimum RT-11 version 

/Size of handler version table entry 



Define minimum versions for various handlers 

HVTBL: 

HANVER DI*DU/ RT50 

HANVER DI*XL/RT51B 

HANVER DI*MU, RT54 
HVEND: 



DU - 


- (5. 


0> 


XL - 


- (5. 


IB) 


MU - 


- (5. 


4) 



TSINIT - 


— TSX s 


tartup 


1 
2 






3 






4 




000000 


5 




000002 


6 




000004 


7 






8 






9 






10 






11 






12 






13 


000336 




14 


000336 




15 


000342 




16 


000346 




17 


000352 




18 


000356 




19 


000362 




20 


000366 




21 


000372 




22 


000376 




23 


000402 




24 


000406 




25 


000412 




26 


000416 




27 


000422 




28 


000426 




29 


000432 




30 


000436 




31 


000442 




32 


000446 




33 


000452 




34 


000456 




35 


000462 




36 


000466 




37 


000472 




38 


000476 




39 


000502 




40 


000506 




41 


000512 




42 


000516 
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The folloujina table defines default control flags for certain devices. 



DV*NAM 
DV*FLe 
DV**SZ 



DVFLBS: 



DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 







j Rad50 name of device 
/Flags for device 
;Size of a table entry 



. MACRO DEFFLG DEV, FLAGS 

. RAD50 / 'DEV/ i DV*NAM 

. WORD FLAGS i DV*FLG 

. ENDM DEFFLG 



<CR>, 
<CT>, 
<DB>, 
<DD>, 



<DP>/ 
<DS>, 
<DT>, 
<DU>, 
<DW>, 
<DX>, 
<DY>, 
<DZ>, 
<FW>, 
<LP>, 
<LS>, 
<MM>, 
<MS>, 
<MT>, 
<MU>, 
<NL>, 
<PC>, 
<RF>, 
<RK>, 
<VM>, 
<XC>, 
<XL>, 



<DX*MPH> 
<DX*MPH> 

<dx*dma ! dx*mph> 
<:dx«nhm> 

<:DX*DMA ! DX*MPH ! DX*IBH> 

<DX«DMA!DX*NHM> 

<DX*DMA> 

<DX*DMA> 

<:dx*dma> 

<DX«DMA ! DX*MHM i DX*NST> 

<DX*MPH> 

<DX*MPH> 

<dx*dma!dx*nhm> 
<:dx*mph> 

<DX*DMA> 

<DX*MPH> 

<DX*MPH> 

<DX*DMA ! DX*MPH ) DX*IBH> 

<DX*DMA ) DX«MPH i DX*IBH> 

<DX«DMA ! DX*MPH ! DX*IBH> 

<DX«DMA ! DX*NHM ! DX*IBH ! DX*NST> 

<DX«MPH> 

<dx*mph:> 
<dx*dma:> 

<DX*DMA!DX$MPH> 
<DX*EBA ! DX«NCA ! DX*NHM> 
<DX*MPH> 
<DX*MPH> 



DVFLND: 
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1 






2 






3 






4 






5 






6 






7 




000000 


8 




000002 


9 




000004 


10 




000006 


11 






12 




000031 


13 






14 


000516 




15 


000744 




16 


000744 


000516' 


17 






18 






19 






20 


000746 


012700 


21 


000750 


077167 


22 


000752 


046543 


23 


000754 





The follou/ing data structures are used to hold information about 
TSX-Plus overlays as they are being initialized. 



Offsets in structure for each overlay 



OS*SIZ 
OS«FLG 
OS*OVL 
OS*«SZ 





2 
4 
6 


MAXOVL 


= 


25. 


OSTABL: 

OSEND: 

OSLAST: 


. BLKB 
. WORD 


OS**SZ*MAXOVL 
OSTABL 


; Tabl 


e of sys 


tern overlays t 


LOWOVL: 
LOWEND: 


. RAD50 
. RAD50 
. RAD50 


/CSH/ 
/TIO/ 
/LOK/ 



; Total space needed for overlay 

; 0==>Load into XM space. l==>over TSINIT 

i Pointer to overlay table entry 

;Si2e of each overlay entry 

i Maximum number of system overlays 

i Reserve room for table 

i -Define end of table 

/Pointer past last used entry in table 



TSCASH 

TSTIO 

TSLOCK 

End of table 



TSINIT - 


-- TSX 


1 
2 




3 




4 




5 


000754 


6 


000764 


7 


001017 


8 


001055 


9 


001067 


10 


001070 


11 


001137 


12 


001175 


13 


001237 


14 


001305 


15 


001342 


16 


001411 


17 


001452 


18 


001510 


19 


001552 


20 


001616 


21 


001670 


22 


001721 


23 


002000 


24 


002027 


25 


002077 


26 


002165 


27 


002223 


28 


002272 


29 


002335 


30 


002401 


31 


002442 


32 


002507 


33 


002551 


34 


002602 


35 


002612 


36 


002702 


37 


002745 


38 


003000 


39 


003066 


40 


003121 


41 


00321 1 


42 


003262 


43 


003312 


44 


003347 


45 




46 
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077 


124 


111 


156 


111 


156 


114 


151 


000 




124 


123 


103 


141 


103 


141 


116 


165 


103 


141 


111 


156 


103 


141 


103 


141 


103 


141 


105 


162 


111 


156 


111 


156 


105 


162 


124 


123 


110 


141 


103 


157 


116 


157 


116 


157 


103 


141 


115 


141 


105 


162 


110 


141 


107 


145 


122 


145 


056 


040 


111 


156 


103 


141 


103 


141 


111 


156 


105 


162 


HI 


156 


111 


156 


103 


141 


103 


141 


040 


101 



BEX 
/?TSX-F-/<200> 

'Invalid CSR for T/S line: '<200> 

'Invalid vector for T/S line: '<200> 

/Line # = /<200> 



/TSX generation did not include device /<200> 

/Cannot open program stuap file/ 

/Cannot open PLAS region swap file/ 

/Number of contiguous blocks needed = /<200> 

/Cannot open spooled device: /<200> 

/Insufficient disk space for spool file/ 

/Cannot find "SY: TSKMON. SAV" file/ 

/Cannot find "SY: CCL. SAV" file/ 

/Cannot find device handler file: /<200> 

/Error reading device handler file: /<200> 

/Invalid RT-11 version for device handler; /<200> 

/Invalid CSR for device: /<200> 

/Error executing installation code for device: /<200> 

/TSX is already running/ 

/Handler not generated with XM support: /<200> 

/Computer line time clock (50 or 60 Hz) is not working/ 

/No memory management hardware/ 

/No extended memory management hardware/ 

/Cannot locate "SY: SYSODT. REL" file/ 

/Mapped handler is larger than 8KB: /<200> 

/Error on read of SYSODT rel file/ 

/Handler for SY device was not loaded/ 

/Generated TSX system is too large/ 

/Reduce size of TSGEN by /<200> 

/. bytes/ 

/Insufficient total physical 

/Cannot open shared run-time 

/Cannot locate "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Error reading "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Insufficient memory space for data cache/ 

/Cannot open TSXIND file/ 

/Cannot open TSXUCL data file/ 

/ ABCDEFGHIJKLMNOPQRSTUVWXYZ*. #0123456789/ 

BEX 





i Tex 


t messages 




f 


. NLIST 


123 


TSXHD: 


. ASCII 


166 


BADLIN 


.ASCII 


166 


BDVMSG 


.ASCII 


156 


BDLMSG 


.ASCII 




CRLF: 


. BYTE 


130 


REQMIS 


. ASCII 


156 


BADOPN 


. ASCIZ 


156 


RSFERR 


. ASCIZ 


155 


CONSPC 


. ASCII 


156 


BDSPOP 


. ASCII 


163 


BOSF: 


. ASCIZ 


156 


NOKMON 


. ASCIZ 


156 


NOCCL: 


. ASCIZ 


156 


CFHMSG 


. ASC I I 


162 


ERHMSO 


. ASCII 


166 


ERHNDV 


. ASCII 


166 


NOCSRR 


. ASCII 


162 


ERHINS 


. ASCII 


130 


TSXRUN 


. ASCIZ 


156 


HSGER: 


. ASCII 


155 


NOCLOK 


. ASCIZ 


040 


NXMMSG 


. ASC I Z 


040 


NEXMSG 


. ASCIZ 


156 


NOODT: 


. ASCIZ 


160 


HN2BIG 


. ASC 1 1 


162 


ODTRDM 


. ASCIZ 


156 


NOSYDV 


. ASCIZ 


156 


TOOBIG 


. ASCIZ 


144 


REDUCE 


. ASCII 


142 


BYTES: 


. ASCIZ 


163 


PHSOVF 


. ASCIZ 


156 


COSRT: 


. ASCII 


156 


SVERR: 


. ASCIZ 


163 


TSXSIZ 


. ASCIZ 


162 


RDERR: 


. ASCIZ 


163 


SRTOVF 


. ASCIZ 


163 


CSHOVF 


. ASCIZ 


156 


INDOPN 


. ASCIZ 


156 


UCLOPN 


. ASCIZ 


102 


R50CHR 


. ASCII 

. EVEN 

. LIST ] 



memory for generated system/ 
file: /<200> 

all mapped system regions/ 

all shared run-time systems/ 



i 
€ 
€ 
i 

i 

i 
i 

i 
i 
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€ 
€ 



1 

2 
3 
4 
5 
6 
7 

e 

9 003420 
10 
11 
12 

13 003420 
14 
15 
16 

17 003424 
18 
19 
20 
21 
22 
23 

24 003432 

25 003440 
26 

27 
28 
29 

30 003444 

31 003450 

32 003452 

33 003456 
34 

35 
36 
37 
38 
39 
40 
41 

42 003460 

43 003464 

44 003470 

45 003474 

46 003476 

47 003502 

48 003506 

49 003512 

50 003514 

51 003516 

52 003522 

53 003524 

54 003530 

55 003532 

56 003534 

57 003540 



004737 004312' 



012737 0000000 OOOOOOG 



012777 

105037 



105737 
001403 
004737 
000407 



012702 
012700 
105737 
001004 
012702 
012700 
012701 
010221 
010021 
105737 
001411 
105737 
001006 
005200 
032700 
001402 



123456 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

000044 

OOOOOOG 

OOOOOOG 

000340 

000120 



OOOOOOG 
OOOOOOG 

000020 



OOOOOOG 



. SBTTL * # ■«■ TSX Initialization * •»• # 

. SBTTL * » # Initialization taking over control from RT-11 * » # 

The initialization code from this point onward takes over 
control from RT-11. 

This code is placed at the front of TSINIT so that non-initialized 
data structures can be allocated over it. 

TAKOVR: 

> Read in system overlays that go over TSINIT 
i 

CALL INIOVL ;Read overlays over TSINIT 

i 

i Set pointer to monitor offset vector 

i 

MOV #MONVEC, @#RMON ; SET POINTER TO MONVEC TABLE 

Initialize last word in interrupt stack area so we won't report a 

stack overflow if an interrupt occurs. 

Set STKLVL to to cause INTEN not to switch to interrupt 

stack during initialization. 

MOV #123456, e I NTSND ; Say stack has not overflowed 

CLRB STKLVL # Say we are already on interrupt stack 

If we are running on a Professional* disable its interrupts 



IF NE, PROASM 

TSTB PROFLG 
BEQ 7* 
CALL PRONOP 
BR 5« 

ENDC ; NE, PROASM 



i Are we running on a PRO? 

J Br if not on a PRO 

/Disable its interrupts 

•> Ignore unexpected interrupts on PRO 



Set up vectors to catch unexpected interrupts 

Note: We encode the interrupt vector address in the PS — 

the low-order two bits of the address are dropped (they are 

always zero) and the remainder of the address is encoded in the 

PS fields priority (high-order 3 bits) and n-z-v-c (low-order 4 bits). 

SEND UNEXPECTED INTERRUPTS TO THIS ROUTINE 

120 ENCODED IN PS FIELDS 

ARE WE TO IGNORE UNEXPECTED INTERRUPTS? 

BR IF NOT 

ROUTINE TO GO TO TO IGNORE INTERRUPT 

SET PR 10=7 IN PS 

IN IT ALL VECTORS STARTING AT 120 

SET PC FOR INTERRUPT 

SET PS FOR INTERRUPT (ENCODED ADDRESS VALUE) 

ARE WE TO IGNORE UNEXPECTED I NTS? 

BR IF YES 

IS THIS A PRO? 

BR IF YES 

ADVANCE ENCODED ADDRESS 

DID WE CARRY INTO "T"-FIELD? 

BR IF NOT 



7*: 


MOV 


#UEXINT, R2 




MOV 


#44, RO 




TSTB 


VUXIFL 




BNE 


10* 


5*: 


MOV 


#UEXRTN, R2 




MOV 


#340, RO 


10*: 


MOV 


#120, Rl 


1*: 


MOV 


R2, (Rl) + 




MOV 


RO, (Rl) + 


6*: 


TSTB 


VUXIFL 




BEQ 


2* 




TSTB 


PROFLG 




BNE 


2* 




INC 


RO 




BIT 


#20, RO 




BE(3 


2* 
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I 
I 



58 


003542 


062700 


000020 






59 


003546 


020127 


000420 


2* 


60 


003552 


103757 






61 


003554 


010237 


000060 




62 


003560 


012737 


000014 


000062 


63 


003566 


010237 


000064 




64 


003572 


012737 


000015 


000066 


65 












66 












67 












68 












69 












70 


003600 


012700 


000340 


11 


71 


003604 


012737 


0000000 


OOOOOOG 


72 


003612 


010037 


000002G 




73 












74 












75 












76 


003616 


005001 






77 


003620 


012721 


000137 




78 


003624 


012721 


OOOOOOG 




79 


003630 


012721 


OOOOOOG 




80 


003634 


005021 






81 


003636 


012721 


OOOOOOG 




82 


003642 


005021 






83 


003644 


012721 


OOOOOOG 




84 


003650 


010021 






85 


003652 


012721 


OOOOOOG 




86 


003656 


005021 






87 


003660 


012721 


OOOOOOG 




88 


003664 


010021 






89 


003666 


012721 


OOOOOOG 




90 


003672 


005021 






91 


003674 


012721 


OOOOOOG 




92 


003700 


005021 






93 


003702 


012737 


OOOOOOG 


000114 


94 


003710 


010037 


000116 




95 


003714 


012737 


OOOOOOG 


000244 


96 


003722 


010037 


000246 




97 


003726 


012737 


OOOOOOG 


000250 


98 


003734 


005037 


000252 




99 












100 












101 












102 


003740 


010546 






103 


003742 


012705 


000006 




104 


003746 


004737 


OOOOOOG 




105 


003752 


012605 






106 












107 












108 








J 




109 


003754 


004737 


004650 ' 




110 








, 




111 








. 




112 








J 




113 


003760 


004737 


005262 ' 




114 













ADD 
CMP 
BLO 
MOV 
MOV 
MOV 
MOV 



#20i RO 

R 1 . #420 

1* 

R2, @#60 

#14, @#62 

R2, @#64 

#15, @#66 



; FORCE CARRY OUT OF T-FIELD AND INTO PRIO FIELD 

i DONE ALL INTERRUPT VECTORS OF INTEREST? 

i BR IF NOT 

i CATCH CONSOLE TERMINAL VECTOR TOO 

i ENCODED 60 

; ENCODED 64 



Direct clock interrupt to a dummy RTI instruction to avoid it causing 
trouble during the. initialization process when things aren't set up 
and ready to go. 

S: MOV #340, RO j PRIORITY 7 PS 

MOV #CLKRTI, e#CLKVECi Send clock interrupt to RTI instruct for now 
MOV RO, @#CLKVEC+2 



Take over traps, EMT, BPT, etc. 



CLR Rl 

MOV #137, <R1)+ 

MOV #JMPO, (Rl) + 

MOV #TRP4, (Rl)+ 

CLR (Rl)+ 

MOV #TRP10, <R1)+ 

CLR <R1)+ 

MOV #TRP14, <R1)+ 

MOV RO, (Rl)+ 

MOV #TRP20, (Rl)+ 

CLR (Rl)+ 

MOV #TRP24, <R1>+ 

MOV RO, (Rl>+ 

MOV #EMTENT, (Ri) + 

CLR (Rl)+ 

MOV #TRP34, (Rl ) + 

CLR <R1)+ 

MOV #MEMPAR, e#114 

MOV RO, @#116 

MOV #FPTRAP, ©#244 

MOV RO, @#246 

MOV #TRP250, @#250 

CLR @#252 



i Start at location O 

i CvJMP e#JMPOD ==> o 

; CATCH JUMPS TO LOCATION O 

} TRAP 4 

i TRAP 10 

i TRAP 14 (BREAKPOINTS) 

; lOT TRAP 

; POWER FAIL 

;EMT 

iTRAP 

} MEMORY PARITY TRAP 

i TRAP 244 — FLOATING POINT TRAP 

i Enter FPU trap at priority 7 

; TRAP 250 — MEMORY MANAGEMENT TRAP 



Initialize the system mapped region. 



MOV 


R5, -(SP) 


MOV 


#6, R5 


CALL 


MAPSYS 


MOV 


(SP)+, R5 



SAVE THE CURRENT CONTENTS OF R5 
INITIALIZE TO THE FIRST REGION 
CALL THE SYSTEM MAPPING ROUTINE 
RESTORE THE PREVIOUS CONTENTS OF R5 



Set up Unibus mapping if needed 



CALL 



SETUMP 



i SET UP UNIBUS MAPPING 



Initialize time-sharing lines. 



CALL 



LININI 



,• INIT LINES S< SET UP VECTORS 
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115 
116 
117 

118 003764 

119 003772 

120 003776 

121 004000 

122 004006 

123 004010 

124 004016 

125 004022 

126 004024 
127 

12B 
129 

130 004032 

131 004040 

132 004044 

133 004046 

134 004052 

135 004054 
136 

137 

138 

139 004060 

140 

141 

142 

143 

144 004064 

145 004070 

146 004072 

147 004076 
148 

149 
150 
151 

152 004102 

153 004106 

154 004112 

155 004114 

156 004120 

157 004122 
158 

159 

160 

161 004130 

162 

163 

164 

165 004134 

166 004142 

167 004150 

168 004156 



Enable memory management 

(The kernel-mode mapping registers are already set up) 



052737 
105737 
001415 
023727 
103411 
052737 
105737 
001403 
052737 



013737 
013702 
105022 
020237 
103774 
112712 



OOOOOOG OOOOOOG 
0000000 

OOOOOOG 010000 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 4*: 
OOOOOOG 



BIS 


#MM£NBL, e#SROMMR 


TSTB 


SR3FLG 


BEQ 


4« 


CMP 


PHYMEM, #4096. 


BLO 


4* 


BIS 


#EMMAP, e#SR3MMR 


TSTB 


MEM256 


BEQ 


4* 


BIS 


#IOMAP, @#SR3MMR 



8*: 



OOOOOOG 
OOOOOOG 



004737 004652 ' 



Turn on memory management 

Does machine have memory management reg 3? 

Br if register does not exist (no ext. mem. ) 

Does machine have at least 256Kb phys memory? 

Br if not 

Set extended memory on 

Will TSX-Plus use at least 256Kb? 

Br if not 

Turn on 22-bit memory management for I/O 

Initialize the memory allocation table 

j Map to memory allocation table 

i Point to 1st user-page entry 

; Say page is free 

; Done all user pages? 

; Loop if not 

; Set flag marking start of system pages 

Set up I/O device interrupt vectors. 

CALL DEWEC i SET UP DEVICE INTERRUPT VECTORS 

If we are running on a Professional* initiailize the PI handler 



MOV 


MAPPAR, ©#KPAR5 


MOV 


LOMAP, R2 


CLRB 


(R2) + 


CMP 


R2, HI MAP 


BLO 


8* 


MOVE 


#MA*SYS> (R2) 



105737 
001404 
004737 
004737 



OOOOOOG 

OOOOOOG 
005200 ' 



IF NE, PROASM 

TSTB PROFLG 
BEQ 3$ 
CALL PROHAN 
CALL PIDVEN 
i NE, PROASM 



;Are we running on a Professional? 

; Br if not 

i Initialize the PI handler 

/Make device table entry for PI 



013702 
012700 
010022 
020237 
103774 
1 1 2737 



OOOOOOG 
123456 

OOOOOOG 

177777 OOOOOOG 



000137 OOOOOOG 



ENDC 

Initialize interrupt stack area 

3*: MOV INTSND, R2 i Point to base of stack area 

j Get initialization value 
12*: MOV RO, (R2)+ ; Initialize the interrupt stack area 

i Finished? 

; Loop i f not 

; Say we are not running on interrupt stack 

Enter TSEXEC to complete initialization 

JMP INIJMP i ENTER INITIALIZATION ROUTINE IN TSEXEC 

Abort the initialization 



MOV 


INTSND, R2 


MOV 


#123456, RO 


MOV 


RO, (R2)+ 


CMP 


R2, INTSTK 


BLO 


12* 


MOVE 


#-l,STKLVL 



013737 000042' OOOOOOG INISTP: MOV 

013737 000044' 000004 MOV 

013737 000046' OOOOOOG MOV 

9*: .EXIT 



CLKIOO, @#CLKVEC ; Restore RT-11 clock vector 
RTTRP4i @#4 ; Restore trap 4 vector 
RTMNVC, e#RMON ; Restore RT-11 monitor pointer 

j RETURN TO RT-11 



I 
I 
i 
I 

i 
i 
i 
I 

€ 
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4 

C 

I 
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I 
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i 

i 

i 



r 

I ( 
' ( 

j 

I f 

I 

c 
i 
i 
i 
i 
i 

c 
c 

€ 

i 
i 
i 



TSINIT ~ 
LODINI - 

1 
2 

n 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
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004160 
004162 
004164 



010146 
010346 
010446 



004166 016201 000004 



004172 
004176 
004202 
004206 
004210 



004214 
004216 
004222 
004256 



016204 
072427 
020461 
101402 
016104 



010503 
072327 

103406 



000000 
000005 
0000000 

OOOOOOG 



000006 



004260 010561 OOOOOOG 



004264 
004266 
004270 
004272 



012604 
012603 
012601 
000207 



004274 
004302 
004310 



. SBTTL LODINI — Load a segment over TSINIT 
LODINI is called to read an overlay segment over TSINIT. 
Inputs: 
R2 ~ Pointer to OSTABL entry for segment to be loaded 
R5 - 64-byte block # where segment is to be loaded. 



LODINI: MOV 
MOV 
MOV 



Rl- -(SP) 
R3, -(SP) 
R4, -<SP) 



Get pointer to linker-built overlay entry 

MOV 0S*0VL<R2},R1 ; Get pointer to linker-built table 
Determine how much code to read from the segment 

ASH °fSIZ(R2),R4 .Get # 64-byte blks allocated for segment 

«=n #E>, R4 ; Convert to # words 

nrL Rf,0. SIZ<R1) ; Compare with original segment code size 

MOV n QT7.P,. D^ 'l^'J^ segment was truncated by init 

nuv O. SIZ(R1>,R4 ; Get code size 



Read the segment into memory 

!*• MOV R5,R3 ;Get 64-byte block # 

ASH #6> R3 .Convert to byte address 

. READW #AREA, #17, R3, R4, 0. BLK<R1) 

BCS 10* ; Br if error on read 

Store the physical address of the segment into the overlay descriptor 

MOV 
Finished 



R5, 0. PAR<R1) .Remember physical address of segment 



MOV 
MOV 
MOV 
RETURN 

Error on read 



(SP)+, R4 
<SP)+, R3 
(SP)+, Rl 



10*: 



PRINT #TSXHD 
PRINT #RDERR 
EXIT 



i 
i 



TSINIT - 
INIOVL - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Load system overlays over TSINIT 



004312 
004314 



010246 
010546 



0043 1 6 01 3705 000 1 40 
004322 072527 177772 
004326 042705 176000 



004332 012702 000516' 

004336 005762 000002 

004342 001406 

004344 004737 004522 ' 

004350 004737 004160' 

004354 066205 000000 

004360 062702 000006 

004364 020237 000744 ' 

004370 103762 



004372 013702 OOOOOOG 

004376 072227 000006 

004402 012705 OOOOOOG 

004406 004737 004464 ' 



004412 013702 0000000 

004416 001406 

004420 072227 000006 

004124 012705 OOOOOOG 

004430 004737 004464 ' 



004434 013702 OOOOOOG 

004440 001406 

004442 072227 000006 

004446 012705 OOOOOOG 

004452 004737 004464 ' 



004456 012605 
004460 012602 
004462 000207 



SBTTL INIOVL 



Load system overlays over TSINIT 



INIOVL is called to load into memory those system overlays that 
are to be placed over the TSINIT code. 



Inputs: 
Overlay segment information is in OSTABL. 



INIOVL: MOV 
MOV 



R2, ~(SP) 
R5, -(SP) 



Initialize pointer to start of memory area for overlays 



MOV OVLBAS, R5 
ASH #-6. R5 
BIG #176000, R5 



i Start of area for overlays 

i Convert to 64-byte # 

iClear possible propagated sign bits 



Begin loop to load each overlay that goes over TSINIT 

Point to Ist overlay segment entry 
Does this segment go over TSINIT? 
Br if not 

Remember base of some segments 
Load the segment 
Advance memory pointer 
2*: ADD #OS**SZi R2 ; Point to entry for next segment 

Finished all segments? 
Loop if not 

Initialize entry point vector for TSTIDX segment 



MOV 


#OSTABL, R2 


TST 


0S*FLG(R2) 


BEQ 


2* 


CALL 


KEYSEG 


CALL 


LODINI 


ADD 


0S*SIZ<R2),R5 


ADD 


#OS**SZ, R2 


CMP 


R2, OSLAST 


BLO 


1* 



MOV 


TIOBAS, R2 


ASH 


#6, R2 


MOV 


#TIOVEC, R5 


CALL 


ENTVEC 



3*: 



i Get addr of base of TSTIOX 
; Convert to byte address 
; Point to entry point vector 
i Set up entry point vector 



Initialize entry point vector for TSCASH segment 



;0et addr of base of TSCASH 
; Br if TSCASH not loaded 
; Convert to byte address 
i Point to entry point vector 
i Set up entry point vector 



Initialize entry point vector for TSLOCK segment 



iGet addr of base of TSLOCK 
; Br if TSLOCK not loaded 
; Convert to byte address 
i Point to entry point vector 
; Set up entry point vector 



MOV 


CSHBAS, R2 


BEQ 


3* 


ASH 


#6, R2 


MOV 


#CSHVEC, R5 


CALL 


ENTVEC 



9*: 



MOV 


LOKBAS, R2 


BEQ 


9* 


ASH 


#6, R2 


MOV 


#LOKVEC, R5 


CALL 


ENTVEC 


inished 




MOV 


(SP)+,R5 


MOV 


(SP)+, R2 


RETURN 





TSINIT - 


- TSX s 


tartup initiali 


ENTVEC - 

1 
2 
3 


— Set u 


p entry point v 






4 






5 






6 






7 






8 






9 






10 






11 


004464 


010246 


12 


004466 


010446 


13 


004470 


010546 


14 


004472 


010204 


15 


004174 


062704 000004 


16 


004500 


005722 


17 


004502 


012415 


18 


004504 


060225 


19 


004506 


005715 


20 


004510 


001774 


21 






22 






23 






24 


004512 


012605 


25 


004514 


012604 


26 


004516 


012602 


27 


004520 


000207 
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. SBTTL ENTVEC — Set up entry point vector for overlay 

ENTVEC is called to set up addresses in an entry point vector for 
overlay segments such as TSCASH that are loaded at addresses different 
from where they are linked. 

Inputs: 
R2 = Address of base of segment. 
R5 = Pointer to vector that is to be initialized <uiord with -1 terminates) 



I 



ENTVEC: MOV 


R2, -<SP) 


MOV 


R4, -<SP) 


MOV 


R5, -<SP) 


MOV 


R2, R4 


ADD 


#4, R4 


TST 


<R2) + 


1«: MOV 


(R4)+, (R5> 


ADD 


R2, <R5) + 


TST 


<R5) 


BEQ 


1* 


; Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R2 


RETURN 





iOet addr of base of segment 

; Point to start of vector in segment 

; Get value to use to relocate offsets 

;Get offset to entry point within segment 

; Convert to absolute address 

i Any more words to initialize? 

; Br if yes 



TSINIT - 


— TSX s 


tartup initializ 


KEYSEG - 

1 
2 
3 
4 


— Remem 


ber memory posit 


5 
6 
7 
8 
9 
10 


004522 


010446 




11 








12 








13 








14 


004524 


016200 


000004 


15 


004530 


016004 


OOOOOOG 


16 








17 








IS 








19 


004534 


020427 


052077 


20 


004540 


001003 




21 


004542 


010537 


OOOOOOG 


22 


004546 


000436 




23 


004550 


020427 


110466 


24 


004554 


001003 




25 


004556 


010537 


OOOOOOG 


26 


004562 


000430 




27 


004564 


020427 


103112 


28 


004570 


001003 




29 


004572 


010537 


OOOOOOG 


30 


004576 


000422 




31 


004600 


020427 


046543 


32 


004604 


001003 




33 


004606 


010537 


OOOOOOG 


34 


004612 


000414 




35 


004614 


020427 


012700 


36 


004620 


001003 




37 


004622 


010537 


OOOOOOG 


38 


004626 


000406 




39 


004630 


020427 


077167 


40 


004634 


001003 




41 


004636 


010537 


OOOOOOG 


42 


004642 


000400 




43 








44 








45 








46 


004644 


012604 




47 


004646 


000207 
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system overlays 

. SBTTL KEYSEG — Remember memory position of system overlays 

KEYSEG is called to remember the physical memory position of some 
key system overlay segments. 

Inputs: 
R2 = Pointer to segment entry in OSTABL overlay table. 
R5 = Base 64-byte block physical memory for segment. 

KEYSEG: MOV R4, -(SP) 

Get the name of the segment out of the linker-built segment block 



MOV 0S*0VL<R2),R0 
MOV 0. ADR(R0),R4 



; Point to linker-built entry 
i Get the name of the segment 



See if this is a segment whose address uie want to remember 



1*: 



3*: 



4«: 



5«: 



6*: 



CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

Finished 



S$; 



MOV 
RETURN 



R4, #R50MSG 

1* 

R5, MSGBAS 

8* 

R4, #R50WIN 

3* 

R5, W I NBAS 

8* 

R4, #R50USR 

4* 

R5, USRBAS 

8* 

R4, #R50L0K 

5* 

R5, LOKBAS 

8$ 

R4i #R50CSH 

6* 

R5, CSHBAS 

8* 

R4, #R50TI0 

8* 

R5, TIOBAS 

8$ 



(SP)+* R4 



; Is this the TSMSG segment? 

; Br if not 

/Remember base of TSMSG segment 

i Is this the TSWIN segment? 

; Br if not 

i Remember base of TSWIN segment 

; Is this the TSUSR segment? 

i Br if not 

i Remember base of TSUSR segment 

J Is this the TSLOCK segment? 

; Br if not 

; Remember base of TSLOCK segment 

i Is this the TSCASH segment? 

; Br if not 

/ Remember base of TSCASH segment 

; Is this the TSTIOX segment? 

i Br if not 

i Remember base of module 



! i 

' c 

! 

I < 

I 
( 

4 

i 

I 

I 

I 
I < 

I 
€ 

i 
i 

' i 
i 
i 
i 
( 

' i 
i 



TSINIT - 
KEYSEG - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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— Remember memory position of system overlays 



004650 000207 



.IF NE, <PR0ASM-1> ; Assemble for PDP-11 

. SBTTL SETUMP — Set UD Unibus maoDina if needed 



SETUMP is called to set up the Unibus map registers for 11/44 and 

11/70 systems which more than 256Kb of memory. 

If Unibus mapping is needed, the Unibus map registers # 0-4 are 

initialized for a 1-to-l mapping with the low 40Kb of memory 

so that I/O to system buffers in the low memory area can be done without 

having to do Unibus mapping. 



Outputs: 
UBUSMP: 

SETUMP : MOV 
MOV 
MOV 
MOV 



l==>Do Unibus mapping; 0==>Don't do Unibus mapping. 



R2. -(SP) 
R3, -<SP) 
@#4, -<SP) 
#9*, @#4 



) SAVE TRAP VECTOR 
; CATCH TRAPS 



See if this is a type of maching that needs unibus mapping 



TSTB 
BEQ 



UBUSMP 
9* 



; Is UNIBUS mapping needed? 
; Br if not 



Unibus mapping is needed 

Load unibus map registers # 0-4 to point to low 4SKb of memory. 



2*: MOV #UMRADR.R5 

CLR R4 

MOV #5, RO 

1*: MOV R4, (R5) + 

CLR <R5)+ 

ADD #8192. ,R4 

SOB ROi 1* 

Turn on Unibus mapping 



POINT TO CONTROL REGISTER FOR UNIBUS MAP 

START MAPPING TO BOTTOM OF MEMORY 

LOAD 5 MAP REGISTERS 

SET LOW-ORDER VALUE IN MAP REGISTER 

CLEAR HIGH-ORDER VALUE IN MAP REGISTER 

ADVANCE MEMORY ADDRESS 

LOOP IF MORE MAP REGISTERS TO LOAD 



BIS 
Finished 



#IOMAP, €l#SR3MMR i ENABLE UNIBUS MAPPING 



9*: 



MOV 
MOV 
MOV 

RETURN 
. IFF 



(SP)+i @#4 
(SP)+, R5 
(SP)+. R4 



> RESTORE TRAP VECTOR 



i NEi <PR0ASM-1> i Following code for Pro-only assembly 
Define dummy SETUMP routine for Pro 



SETUMP: 



RETURN 
. ENDC 



iNE, <PROASM-i: 



< 
I 
I 

I 
i 
f 

€ 

I 
i 
i 
€ 

i 

I 

< 
( 
I 
I 

i 



( 



TSINIT - 


- TSX s 


tartup initializ 


DEVVEC - 


- Set u 


p device 


vectors 


1 
2 








3 








4 








5 








6 


004652 


010146 




7 


004654 


010346 




8 


004656 


010546 




9 


004660 


013746 


OOOOOOG 


10 








11 








12 








13 


004664 


012701 


000002 


14 


004670 


016103 


OOOOOOG 


15 


004674 


020327 


000006 


16 


004700 


101436 




17 








18 








19 








20 


004702 


016100 


OOOOOOG 


21 


004706 


001402 




22 


004710 


010037 


OOOOOOG 


23 








24 








25 








26 


004714 


005023 




27 


004716 


005013 




28 


004720 


162703 


000010 


29 








30 








31 








32 


004724 


005005 




33 


004726 


005713 




34 


004730 


001422 




35 


004732 


002403 




36 


004734 


004737 


005024 ' 


37 


004740 


000416 




38 








39 








40 








41 


004742 


012300 




42 


004744 


006300 




43 


004746 


060003 




44 


004750 


005713 




45 


004752 


002005 




46 


004754 


005723 




47 


004756 


012346 




48 


004760 


004777 


OOOOOOG 


49 


004764 


012605 




50 


004766 


004737 


005024 ' 


51 


004772 


005713 




52 


004774 


003374 




53 








54 








55 








56 


004776 


062701 


000002 


57 


005002 


020137 


OOOOOOG 
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. SBTTL DEWEC — Set up device vectors 



DEWEC is called to set up device interrupt vectors for handlers 
that have been loaded. 



DEWEC: MOV 
MOV 
MOV 
MOV 



R 1 > - ( SP ) 
R3, -(SP) 
R5. -<SP) 
@#KPAR5, -<SP) 



; Save PAR 5 mapping 
Begin loop to set up vectors for each device 



If: 



MOV 


#2. Rl 


MOV 


HANENT<R1),R3 


CMP 


R3, #6 


BLOS 


6« 



Get index # of 1st device after TT 
Get handler entry point address 
Is this a real device? 
Br if not 



See if uie need to map PAR 5 to this handler 



MOV HANPAR(R1),R0 

BEQ 2* 

MOV RO, e#KPAR5 



;Get PAR 5 base for this handler 
; Br if this is not a mapped handler 
» Map PAR 5 to the handler 



Clear CQE and LQE in handler header 



?*: 



CLR 
CLR 
SUB 



(R3) + 
(R3) 
#10, R3 



Clear LQE (4th word in handler) 
Clear CQE (5th word in handler) 
Point to 1st word of handler 



Set up interrupt vectors for this handler 



CLR 


R5 


TST 


(R3) 


BEQ 


6* 


BLT 


5* 


CALL 


SETVEC 


BR 


6* 



Multiple vectors. 



5*: 



7*: 



MOV 


(R3)+, RO 


ASL 


RO 


ADD 


RO, R3 


TST 


(R3) 


BGE 


7* 


TST 


(R3) + 


MOV 


(R3)+,-(SP) 


CALL 


©RPRVEC 


MOV 


(SP)+, R5 


CALL 


SETVEC 


TST 


(R3) 


BGT 


7* 



Assume vector base address is 

Any vectors to set up? 

Br if no vectors to set up 

Br if multiple-vector 

Set up the vector 

Finished 



Get offset to list of vector info 

Get byte offset to vector list 

Get absolute address of vector table 

Is this a PRO device with floating vectors? 

Br if not 

Point to word with device ID 

Get device ID 

Get base vector location for device 

This is base of vector locations 

Set up the vector 

Any more vectors to set up? 

Br if yes 



See if there are more devices to set up. 



6*: 



ADD 
CMP 



#2, Rl 

R 1 . NUMDEV 



j Advance device table index 
; More to do? 



i 
i 



TSINIT — TSX startup initializ MACRO V05. 05 
DEVVEC — Set up device vectors 
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58 
57 
60 
61 
62 
63 
64 
65 
66 



005006 101730 



005010 
005014 
005016 
005020 
005022 



012637 
012605 
012603 
012601 
000207 



ooooooe 



BLOS 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



1* 



(SP)+. @#KPAR5 
(SP)+, R5 
<SP)+, R3 
(SP)+, Rl 



Br if yes 



i 



TSINIT - 


-- TSX s 


tartup initiaiiz 


SETVEC - 

1 
2 
3 


~ Set u 


p an int 


errupt v 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








IS 








19 




000032 




20 








21 


005024 


010446 




22 








23 








24 








25 


005026 


005761 


OOOOOOG 


26 


005032 


001010 




27 








28 








29 








30 








31 


005034 


012300 




32 


005036 


060500 




33 


005040 


010310 




34 


005042 


062320 




35 


005044 


012310 




36 


005046 


052710 


000340 


37 


005052 


000450 




38 








39 








40 








41 








42 








43 








44 








45 








46 








47 


005054 


013704 


000122' 


48 


005060 


012300 




49 


005062 


060500 




50 


005064 


010420 




51 


005066 


012724 


013746 


52 


005072 


012724 


OOOOOOG 


53 


005076 


012724 


012737 


54 


005102 


016124 


ooooooe 


55 


005106 


012724 


OOOOOOG 


56 


005112 


012724 


012746 


57 


005116 


012724 


000340 
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a device 
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. SBTTL SETVEC — Set up an interrupt vector for a device 

SETVEC is called to set up one interrupt vector for a device. 

Inputs: 
Rl = Device index number. 
R3 = Pointer into device handler to 3 word cells: 

1. Address of interrupt vector. 

2. Offset to interrupt entry point in handler. 

3. PS for interrupt. 

R5 = Base address to add to vector locations. 

Outputs: 
R3 = Points beyond 3 word info block in handler. 

Size of interrupt catching routine compiled for interrupts to 
mapped handlers: 



f 
i 
i 
i 



MPIVSZ = 26. 

i 

SETVEC: MOV R4, -<SP) 

See if this is a mapped handler 



; Amt of code compiled for mapped ints 



TST HANPAR(Rl) 
BNE 1$ 



i Is this a mapped handler 
> Br if yes 



This is an unmapped handler. 

Vector interrupts directly to the handler. 



MOV 


(R3>+, RO 


ADD 


R5, RO 


MOV 


R3, (RO) 


ADD 


<R3)+, <R0)+ 


MOV 


(R3)+. (RO) 


BIS 


#340, (RO) 


BR 


9* 



Get address of interrupt vector 
Add base address to vector location 
Store address of cell in handler 
Add offset to interrupt entry point 
Set PS for interrupt 
Make sure priority == 7 



This is a mapped handler. 

Vector the interrupt to a routine that performs the following functions: 

1. Save the current PAR 5 mapping. 

2. Map PAR 5 to the handler. 

3. Push a dummy PC and PS on stack that will send return from handler 
to a routine that will restore the PAR 5 mapping. 

4. Jump into the handler interrupt entry point. 



1*: 



MOV XMVBASi R4 

MOV (R3)+, RO 

ADD R5, RO 

MOV R4, (R0) + 

MOV #013746, (R4) + 

MOV #KPAR5, (R4) + 

MOV #012737, (R4)+ 

MOV HANPAR(Rl), (R4)+ 

MOV #KPAR5, (R4)+ 

MOV #012746, (R4)+ 

MOV #340, (R4)+ 



Point to area where we store interrupt rtn 
Get address of interrupt vector 
Add base address to interrupt location 
Direct interrupt to our routine 
C MOV e#KPAR5, -(SP) 3 

C MOV #par5val, e#KPAR5 3 



C MOV #340, -(SP) 3 



i 
i 
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61 
62 



58 005122 

59 005126 

60 005132 
005136 
005142 

63 005146 

64 005152 

65 005156 

66 005160 

67 005162 

68 005164 
69 

70 

71 

72 005170 

73 

74 

75 

76 005174 

77 005176 



012724 
012724 
012724 
016314 
042714 
052724 
012724 
010314 
062324 
012310 
052710 



012746 

OOOOOOG 

000257 

000002 

177760 

000260 

000137 



000340 



010437 000122' 



012604 
000207 



MOV #012746. <R4)+ 

MOV #HANXIT, <R4)+ 

MOV #000257, <R4)+ 

MOV 2(R3), <R4> 

BIC #-^C17, <R4) 

BIS #260, (R4)+ 

MOV #000137, <R4)+ 

MOV R3, (R4) 

ADD (R3)+, (R4) + 

MOV <R3)+, <R0) 

BIS #340, <R0) 



C MOV #HANXIT, ~<SP) 3 

C CCC - Clear all condition codes 3 

C SEx - Set condition codes specified in PS3 



i Z JMP e#handler_entry 3 

} Store address of int entry point 



; Set PS for interrupt entry 
;Make sure priority = 7 



Save address beyond end of compiled interrupt catcher routine 

MOV R4, XMVBAS ; Save address beyond end of routine 

Finished 

9*: MOV (SP)+, R4 
RETURN 



TSINIT - 
SETVEC - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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IF NE, PROASM 

. SBTTL PIDVEN — Make device table entry for PI device 

If we are running on a Professional computer* PIDVEN is called to 
make an entry in the device tables for the PI device. 



005200 010146 



PIDVEN: MOV 



Rl, -(SP) 



Increase number of defined devices and get device table entry index 
to use for the PI device. 



005202 062737 000002 OOOOOOG 
005210 013701 OOOOOOG 



005214 012761 062550 OOOOOOG 
005222 012761 OOOOOOG OOOOOOG 
005230 005061 OOOOOOG 



ADD 
MOV 



NUMDEV 



NUMDEV. Rl 
Set up information about the PI device 



i One more device 

j Get device table index 



005234 005061 
005240 012761 
005246 012761 



005254 012601 
005256 000207 



OOOOOOG 

000006G OOOOOOG 
OOOOOOG OOOOOOG 



MOV 
MOV 
CLR 
CLR 
MOV 
MOV 

Finished 



#R50PI, PNAME<R1) J Set device name 

#<DS*SFN!DI*PI>, DVSTAT(Rl) ; Set device status flags 

DVFLAG(Rl) J Clear other flags 

DEVSIZ(Rl) iClear device size 

#PIHAN+6, HANENT(Rl); Set handler entry point <4th word) 

#PR0SIZ/HANSIZ(R1) ; Set handler size 



. ENDC 



MOV 

RETURN 

i NE, PROASM 



(SP)+, Rl 
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{ 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



•IF NE, <PR0ASM-1> ilf assembling for PDP-11 
. SBTTL LININI — Initialize time-sharino lines 



LININI is called to initialize the time-sharing lines. 

This consists of setting up interrupt vectors and setting control 

flags in the status registers. 



LININI: MOV 
MOV 
MOV 
MOV 
MOV 



R1/-<SP) 
R2, -(SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 



Set up interrupt vectors for DLll lines 



MOV 
MOV 
1«: BIT 
BNE 
BIT 
BEQ 
CMP 
BNE 

DL-11 line 

MOV 
MOV 
MOV 
MOV 
ASL 
SUB 
ADD 
ADD 
MOV 
MOV 
MOV 
MOV 

Try next line 



8$: 



Index for 1st line 

Priority 7 PS 

Is this line uninstalled? 

Br if yes 

Is this line connected to hardware? 

Br if not 
LCDTYP<R1>, #CDX*DL ; Is this a DLll line? 
8* ; Br if not 



#2, Rl 

#340, R4 

#*DEAD, LSW3(R1) 

S« 

#*HARD, LSW3(R1) 

8* 



INVEC<R1), R5 

#INRECV, R2 

#<:0TRECV-6>> R3 

Rl, RO 

RO 

RO, R2 

Rl, RO 

RO, R3 

R2, (R5) + 

R4, (R5) + 

R3, (R5) + 

R4, (R5) + 



ADD 


#2, Rl 


CMP 


Rl, #LSTHL 


BLOS 


1* 



GET ADDRESS OF INPUT VECTOR 

END OF RECEIVING VECTOR 

START OF INPUT INTERRUPT ENTRY POINTS 

GET LINE NUMBER 

4 BYTES PER INPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF INPUT INTERRUPT ENTRY POINT 

6 BYTES PER OUTPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF OUTPUT INTERRUPT ENTRY POINT 

SET PC FOR INPUT INTERRUPT ENTRY POINT 

SET PS FOR INPUT INTERRUPT 

SET PC FOR OUTPUT INTERRUPT 

SET PS FOR OUTPUT INTERRUPT 



ADVANCE LINE INDEX NUMBER 
MORE TO DO? 
BR IF YES 



Initialize multiplexers. 



SETMUX: MOV 
BEQ 



3$: 



2*: 



CMP 

BEQ 

CMP 

BNE 

CALL 

BR 

CALL 

BR 



#LSTMX,R1 iGet last mux index # 

SETLIN i Br if there are no mux lines 

MXTYPE<R1),#CDX*DZ ils this a DZll, DHll, or DHVll? 

1* ;Br if DZll 

MXTYPE(Rl), #CDX*VH i Is this a DHVll? 

2* ; Br if not 

VHINIT ; Initialize a DHVll 

4* 

DHINIT ,• Initialize a DHll 

4* 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



1*: 
4*: 



CALL 

SUB 

BNE 



DZINIT 
#2, Rl 
3* 



Enable all lines 



SETLIN: MOV 
4*: BIT 

BNE 

BIT 

BEQ 

BIT 

BEG 

BIS 
3*: MOV 

MOV 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

DHll line 

CALL 
BR 

DHVll line 

7$: CALL 
BR 

DZ-11 line 

6*: MOV 
BIS 
MOV 
BR 

DL~11 line 

1*: MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
MOV 

Do next line 

2*: SUB 
BGT 

Finished 



i Initialize a DZll 
/More to enable? 
; Br if yes 



i INDEX # OF LAST REAL LINE 



#LSTHL, Rl 

#«DEAD, LSW3(R1) ; IS THIS LINE INSTALLED? 



2$ 



i BR IF NOT 



#*HARD, LSW3(R1 ) ; Is this line connected to hardware? 



2* 



; Br if not 



#*PHONE> ILSW2(Rl)i IS THIS A DIAL-UP LINE? 



3$ 

#*NOIN, LSW3<R1) 

LCDTYP(R1),R5 

LMXNUM(R1),R0 

1* 

R5, #CDX*DZ 

6$ 

R5, #CDX*VH 

7* 



DHLPRM 
2* 



VHLPRM 
2* 



LMXLN<R1), R2 
#017030, R2 
R2, @MXLPR<RO) 
2* 



TSR(R1),R2 
(R2), R3 
(R2> 

RBR(R1)>R2 
(R2),R3 
RSR<R1),R2 
(R2) 
#RDINT, <R2) 



#2, Rl 
4* 



BR IF NOT 

IGNORE INPUT TILL DIAL UP OCCURS 

Set comm device type code 

IS THIS A DL-11 OR MUX LINE? 

BR IF DL-11 

Is this a DZll or DHll? 

Br if DZll 

Is this a DHll or DHVll? 

Br if DHVll 



Set line parameters for DHll line 



Set line parameters for DHVll line 



> Get line # tuithin mux group 
J Set line enable flags 
;Enable the line 



i ADDRESS OF TRANSMITTER STATUS REGISTER 
i CLEAR TRANSMITTER STATUS REGISTER 

ADDRESS OF RECEIVER BUFFER REGISTER 
CLEAR RECEIVER BUFFER REGISTER 
ADDRESS OF RECEIVER STATUS REGISTER 

; ENABLE RECEIVER INTERRUPTS 
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115 
116 
117 
118 
119 
120 



iday 20- 


-Jan-89 1 


MQV 


(SP)+,R5 


MOV 


(SP)+, R4 


MOV 


(SP)+. R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





I 



TSINIT 
PIDVEN 
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€ 

€ 
< 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



. SBTTL DHLPRM — Set line parameters for a DHll line 

DHLPRM is called to set up the line parameters for a DHll line. 

Inputs: 
Rl = Physical line index number. 

DHLPRM: 

Enable DM11 for this line 



MOV 

TST 

BEQ 

BICB 

BISB 

MOV 

Finished 

2*: RETURN 



LMXNUM(R1),R0 

DM*CSR(R0) 

2* 



; Get mux index number 

j Does this DHll have DM11 modem control? 

; Br if not 

#MF*LIN. SDM*CSR<RO) i Clear line # field in DM11 CSR 
LMXLN(R1 )» eDM*CSR(RO)i Select line of interest 
#MF*LE> @DM*LSR(RO)i Enable the line 



I 
i 



TSINIT 
PIDVEN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 



. SBTTL VHLPRM — Set line parameter values for DHVll line 

Set the line parameter values for a DHVll line. 

Inputs: 
Rl = Physical line index number. 

VHLPRM: 

Enable the line 



MOV 
BIC 
BISB 
MOV 

Finished 

RETURN 



LMXNUM(R1 >, RO > Get mux index number 
#VF*LIN, eVH*CSR<RO) ; Clear line # field in mux CSR 
LMXLN<R1), @VH*CSR<RO) ; Set our line # 
#<VF*RE>>eVH*LCR(RO) ; Enable the line 



TSINIT 
PIDVEN 
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1 



5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16> 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



. SBTTL DZINIT — Initialize a DZll multiplexer 
DZINIT is called to initialize a DZll multiplexer. 



Inputs: 
Rl = Mux index number. 

DZINIT: 

See if this DZll is installed 



TST 
BEQ 



MXCSR(Rl) 
4* 



i Is this DZ-11 installed? 
; Br if not 



Set up interrupt vector connections for this MUX 

CALL MUXVEC ; Set up interrupt vectors for this DZll 

Start up the mux operation 



1*: 
2*: 



BIS 
BIT 
BNE 
MOV 
BMI 
CLRB 



Finished 
4*: RETURN 



#ZCLR> eMXCSR(Rl )i Do master clear on DZ-11 

#ZCLR, @MXCSR(R1); Wait for clear to finish 

1* 

@MXRBUF(R1)>R0 ;Clear silo 

2* 

@MXDTR(R1) iDisable all data sets 



I c 

> i 

I 

' i 

I 
I 

i 
i 

i 
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I 



( 



c 

I 

i 

> i 

i 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



SBTTL MUXVEC 



Set up interrupt vectors for a multiplexer 



MUXVEC is called to set up the interrupt vector connections for 
a D211, DHll, or DHVll multiplexer. 



Inputs: 
Rl = Mux index number. 



MUXVEC: MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R5, -<SP) 



Set interrupt vector for mux 

Get address of input interrupt vector 

End of receiving vector 

Output interrupt table 

Get mux index number 

4 bytes per line in input int table 

Get address of input entry point 

6 bytes per mux in output entry point table 

Get address of output int entry point 

Set PC for input interrupt 

Set PS for output interrupt 

Set PC for output interrupt 

Set PS for output interrupt 

Now store an instruction sequence of the form: 

JSR R5i e#interrupt_routine 
. WORD mux_index 

to catch mux output interrupts and vector them to the interrupt routine. 



MOV 


MXVEC<Rl)iR5 


MOV 


#INMXV, R2 


MOV 


#<0TMXV-6>, R3 


MOV 


Rl/RO 


ASL 


RO 


SUB 


RO, R2 


ADD 


R1,R0 


ADD 


RO, R3 


MOV 


R2, (R5) + 


MOV 


#340, <R5) + 


MOV 


R3, (R5) + 


MOV 


#340, (R5) 



1*: 



MOV 
MOV 
CMP 
BEQ 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



#004537, <R3)+ 

#DZOINT, RO 

MXTYPE(Rl), 

1* 

#VHOINT, RO 

MXTYPE(R1),#CDX*VH 

1* 

#DHOINT, RO 

RO, <R3) + 

Rl, (R3) 



(SP)+, R5 
(SP)+, R3 
(SP)+, R2 



; JSR R5, @#x 

i Assume this is a DZll 
#CDX*DZ ; Is this a DZll? 
; Br if yes 
; Assume this is a DHVll 

Is this a DHVll? 
i Br if yes 

; Get interrupt routine for DHll's 
; Store address of interrupt routini 
i Store mux index number 



f 
I 
f 
< 
i 
i 



TSINIT 
PIDVEN 



1 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
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19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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. SBTTL DHINIT — Initialize a DHll multiplexer 

DHINIT is called to initialize a DHll multiplexer 

Inputs; 
Rl = Mux index number 

DHINIT: 

See if this DHll is installed 



TST MH*SCR(R1) 
BEQ 9* 



; Is this DHll installed? 
i Br if not 



Connect interrupt vector to DHll 

CALL MUXVEC ; Set up interrupt vectors for DHll 

Clear the multiplexer 

MOV #HF*MC, eMH«SCR(Rl) i Set the master-clear flag 
1$: BIT #HF*MC. eMH*SCR(Rl ) ;Wait for the master clear to be completed 
BNE 1* 

Clear the DM11 scanner 



MOV 
BEQ 
MOV 
BIS 



DM*CSR<R1),R0 

3* 

#MF*CS, <R0) 

#MF*CM. (RO) 



3*: 



Finished 



; Is there an associated DM11? 

i Br if not 

/Clear the scanner 

iClear the multiplexer 



9*: 



RETURN 



€ 
€ 



TSINIT - 
PIDVEN - 

1 

2 
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7 

8 

9 

10 

11 

12 

13 

14 

15 

16 
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le 
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28 
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30 
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32 
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. SBTTL VHINIT — Initialize a DHVll multiplexer 
Perform initialization for a DHVll mux. 



Inputs: 
Rl = Mux index number. 

VHINIT: 

See if this DHVll is installed 



TST VH*CSR<R1) 
BEQ 9* 



; Is this DHVll installed? 
J Br if not 



; Connect interrupt vector to DHVll 

CALL MUXVEC ; Set up interrupt vectors 

i Clear the multiplexer 

i 

MOV #VF*MR, SVH*CSR(R1) ; Reset the multiplexer 
1*: BIT #VF*MR,eVH*CSR(Rl) ;Wait for reset to finish 
BNE 1* 



Clean out the FIFO buffer in the mux 



2*: 



MOV 
BLT 



@MXRBUF<R1)* RO i Get contents of receiver buffer register 
2* i Loop until RBUF empty 



Finished 
9«: RETURN 



I 
t 
I 

I 
i 
i 
I 

c 
i 

i 

€ 
€ 
€ 

I 
i 
i 
i 
I 
I 



( 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



End of code that can be omitted for Pro-only sustems 
.IFF i NE. <PR0ASM-1> ; Begin code for Pro only 



This code is assembled only for Pro systems. 
T/S line init routines for Pro only. 



005260 
005260 
005260 
005260 
005260 
005260 
005260 
005260 



005262 
005264 



005270 
005274 
005302 



LINCHK 
DHLPRM 
VHLPRM 
DZINIT 
MUXVEC 
DHINIT 
VHINIT 



000207 



010146 
012701 



004737 
032761 
001411 



RETURN 
LININI routine for Pro sustems 



OOOOOOG 



005340 ' 
OOOOOOG 



LININI: MOV 
MOV 



R1,-<SP) 
ttLSTLIN, Rl 



005304 004737 OOOOOOG 



005310 
005316 
005320 



005326 
005332 



005334 
005336 



032761 
001403 
052761 



162701 
003356 



012601 
000207 



OOOOOOG 
OOOOOOG 

000002 



i Get # of last line 

Determine if this line is connected to hardware 

1*: CALL LINTYP ; Determine the type of this line 

OOOOOOG BIT #*HARD> LSW3<R1) ; Is this line connected to hardware? 

BEQ 2* J Br if not 

Call Pro line initialization routine 

CALL PROLIN ; Initialize Pro line 

Do some special init for phone lines 

OOOOOOG BIT #*PHONE, ILSW2(Rl)j Is this a dialup line? 

BEQ 2* i Br if not 

OOOOOOG BIS #*NOIN/ LSW3(R1) ; Ignore input till dial up occurs 



Check next line 



2$: 



SUB 


#2, Rl 


BGT 


1$ 


Finished 




MOV 


<SP)+,R1 


RETURN 





jGet index # of next line 
i Loop if more lines to do 



End of Pro-only code 

. ENDC i NE, <PR0ASM--1> 
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005340 
005344 
005346 
005352 
005354 
005362 



005364 
005370 
005374 
005402 
005410 



005412 
005420 
005426 
005434 
005442 



020127 
101422 
020127 
103004 
012761 
000432 



016100 
010160 
012761 
012761 
000414 



012761 
012761 
012761 
012761 
052761 



. SBTTL LINTYP — Determine the type of a line 

LINTYP is called to determine if the current line is a time-sharing line 
a CL line* or a non-harduiare connected line. 

Inputs: 
Rl = Line index number 



ooooooe 

OOOOOOS 



LINTYP: CMP 
BLOS 
CMP 
BHIS 
177777 OOOOOOG MOV 

BR 



R 1 , #LSTPL 

1* 

Rl, #FSTIOL 

2$ 

#-1, LCLUNT(Rl) 

9* 



; Is this a time-sharing line? 

i Br if yes 

i Is this a CL line? 

; Br if yes 

i Say line not in use as a CL line 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



177777 

177777 

OOOOOOG 

OOOOOOG 

OOOOOOG 



2*: 



OOOOOOG 
OOOOOOG 



This is a CL line 

MOV LCLUNT<R1 ), RO i Get the CL unit index number 

MOV Rl, CL*LIX(RO) i Say which line is assoc with this CL unit 

MOV #CLOTIR, LOUTIR(Rl) i Set terminal output interrupt routine 

MOV #CLINCP, LINIR<R1 ) i Set terminal input interrupt routine 

BR e* 



This is a time-sharing line 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 



8«: 



MOV 
MOV 
MOV 
MOV 
BIS 

Finished 



#-1, LCLUNT<R1 ) ; Say line is not in use as a CL unit 
#-l«LXCL<Rl) i Line is not cross-connected to CL unit 
#NEDCHR» L0UTIR<R1 ) ; Set terminal output interrupt routine 
#TTINCP, LINIR<R1 ) ; Set terminal input interrupt routine 
#*HARD, LSW3<R1) iThis line is connected to hardware 



005450 000207 



9*: 



RETURN 



( 
c 



I 



( 



c 
i 
f 



i 



i 
I 

i 
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1 

2 

3 

4 

5 

6 

7 

8 005452 

9 
10 
11 

12 005452 013737 000004 000044 

13 005460 013737 0000000 000046 

14 005466 013737 OOOOOOG 000042 
15 

16 

17 

18 

19 005474 

20 

21 

22 

23 005514 

24 

25 

26 

27 005534 012700 OOOOOOG 

28 005540 162700 037776 

29 005544 003422 

30 005546 010046 

31 005550 

32 005556 

33 005564 

34 005572 012600 

35 005574 004737 025230' 

36 005600 

37 005606 000137 004134' 
38 

39 
40 

41 005612 012701 OOOOOOG 

42 005616 012700 123456 

43 005622 010021 

44 005624 020127 OOOOOOG 

45 005630 103774 

46 005632 010106 
47 

48 
49 

50 005634 

51 005642 012700 000176' 

52 005646 104375 

53 005650 103410 

54 005652 

55 005660 

56 005666 000137 004134' 

57 005672 



. SBTTL # •«• « Initialization done with RT-11 running » # * 
Initialization at start of execution of TSX. 



The initialization done in this section uses the running RT-11 system 
to perform functions for it. 

INITGO: 

} Save some RT-11 pointers in case we abort the initialization 

MOV @#4, RTTRP4 ; Save trap 4 vector 

MOV @#RMON, RTMNVC ; RT-11 monitor pointer 

MOV e#CLKVEC, CLKIOO ; Clock vector (defined in TSGEN at 100) 

Get the current time of day which we will use later to make sure 
the line time clock is working. 

. GTIM #AREA, #SYTIMH i Get the current time of day 
Trap '-C for later test so we can restore clock vector 

. SCCA #AREA, #CCAFLG ; Catch control-C 
Check for TSGEN size overflow 



MOV #GENTOP, RO 

SUB #<40000-2>, RO 

BLE 1 5* 

MOV RO, -<SP) 

.PRINT #TSXHD 

.PRINT #TOOBIG 

.PRINT #REDUCE 

MOV <SP)+, RO 

CALL PRTDEC 

. PRINT #BYTES 

JMP INISTP 



Initialize the system stack (below 1000) 



jGet top of TSGEN 

iWill TSKMON have problems? 

i Continue if not 

i Save overflow size 

i Print error message 



i Recover amount of overflow 



15*: MOV #SSEND, Rl 

MOV #123456, RO 

13*: MOV RO, (Rl) + 

CMP R1,#SS 

BLO 13* 

MOV R1,SP 



i Point to bottom of stack 

iGet initialization value 

i Initialize the stack 

; Reached top of the stack area? 

; Loop if not 

i Run on system stack 



Make sure we are not already running under TSX. 



. SERR 

MOV 

EMT 

BCS 

. PRINT 



#GTLIN, RO 

375 

1* 

#TSXHD 



1*: 



.PRINT #TSXRUN 
JMP INISTP 
. HERR 



; DON'T DIE ON ERRORS 

iTSX EMT TO GET LINE NUMBER 

; TRY A TSX EMT 

;BR IF NOT UNDER TSX 

; ALREADY UNDER TSX 



> RENABLE FATAL ERRORS 



i 

i 

r 
I 
i 

i 
I 
i 
i 

i 

i 

< 

I 
4 
I 

i 
c 
I 
C 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



005700 
005720 
005724 



005742 
005750 
005754 
005760 
005762 
005766 



005772 
005776 
006016 
006020 
006024 



006026 
006034 
006036 
006044 
006046 



006052 
006052 



006056 
006062 
006066 
006072 
006076 
006100 



006104 
006110 



010037 
020027 
101402 
012700 
010037 



160005 
010537 



032737 
001406 
023727 
001002 
005237 



012705 
004737 
004737 
020527 
103002 
012705 



001274 
010537 
062705 



Makm tiure -hhis machinp has memory management facilities 



005737 OOOOOOG 



. TRPSET #AREA, #NOXM 
TST @#SROMMR 
. TRPSET #AREA, #0 



CATCH TRAPS 

TRY TO ACCESS MEMORY MANAGEMENT REGISTER 

Release trap control 



Request all available memory from RT-11. 



000132' 
OOOOOOG 

OOOOOOG 
000236 ' 



3*: 



. SETTOP #-2 

MOV RO, TOPMEM 

CMP RO, #VPAR5 

BLOS 3* 

MOV #VPAR5, RO 

MOV R0> MEMLIM 



REQUEST ALL AVAILABLE MEMORY 

REMEMBER WHERE TOP OF MEMORY IS 

TSX CANNOT EXTEND ABOVE PARS BASE ADDRESS 

BR IF RT-11 IS BELOW THAT 

SET PAR5 BASE AS UPPER LIMIT ON TSX SIZE 

TSX MAY NOT EXCEED THIS UPPER LIMIT 



Lock USR in memory for speed 

<Set USR to swap over TSEMT to get out of the way) 



012705 177776' 



000046 



5*: 



MOV 
. GVAL 
SUB 
MOV 
. LOCK 



#TSINIT-2, R5 
#AREA, #374 
ROi R5 
R5, e#46 



GET THE BASE OF TSINIT 

GET SIZE OF RT-11 USR MODULE 

ALLOCATE SPACE BELOW TSINIT FOR USR 

SET USR TO SWAP OVER TSEMT 

LOCK USR IN MEMORY 



Determine if u>e are to run system uiith the system debugger 



OOOOOOG OOOOOOG 
000510 057164 
000034 ' 



BIT #CHAIN, @#JSWLOC 

BEQ 10* 

CMP @#510, #R500DT 

BNE 10* 

INC ODTFLG 



WERE WE CHAINED TO? 

BR IF NOT 

SHOULD WE RUN UNDER ODT? 

BR IF NOT 

SET FLAG SAYING DEBUGGER WANTED 



Call Pro TSX initialization only if assembling for the Pro 
Jump to INISTP if checking fails. 



10*: 
. IF 



004737 025354 ' 



NE, PROCID 
CALL INSCHK 
iNE, PROCID 



j ** Do if assembling for pro only ** 

> PERFORM VERIFICATION AND DECRYPTION FOR PRO 



000000 ' 
011652' 
012316' 
005452' 

005452' 



ENDC 

Allocate non-initialized buffer space over TSINIT. 

Allocate buffer space over TSINIT 

Do allocation 

Allocate silo buffers for lines 

Are uje beyond code that takes over control? 

Br if yes 

Advance up to initial code 

Allocate the interrupt stack over TSINIT 

If we are running on a Pro. allocate buffer for the PI handler 

initialization code over the interrupt stack area. 



MOV 


#TSINIT. R5 


CALL 


ALOCBF 


CALL 


ALCSLO 


CMP 


R5, #INITGO 


BHIS 


12* 


MOV 


#INIT00, R5 



OOOOOOG 
000002 



PIINSZ = 
12*: MOV 
ADD 



700. 

R5, INTSND 

#2, R5 



; Space needed for PI init code 

i Ptr to base of interrupt stack 

i Always leave last word of stack for flag val 



< 

i 
i 



i 
i 



i 
i 
i 
i 
i 
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115 006114 013701 OOOOOOG 

116 006120 032761 OOOOOOG 000370 

117 006126 001407 

118 006130 105237 OOOOOOG 

119 006134 010537 000150' 

120 006140 062705 001274 

121 006144 000402 

122 006146 062705 OOOOOOG 

123 006152 010537 OOOOOOG 
124 

125 

126 

127 006156 004737 021400' 

128 

129 

130 

131 

132 006162 020527 025350' 

133 006166 103002 

134 006170 012705 025350' 
135 

136 

137 

138 006174 004737 007526' 

139 

140 

141 

142 006200 004737 007562' 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 006204 004737 015230' 

156 

157 

158 

159 006210 013701 OOOOOOG 

160 006214 016102 000300 

161 006220 042702 OOOOOOC 

162 006224 052702 OOOOOOC 

163 006230 010237 OOOOOOG 
164 

165 006234 016137 000370 OOOOOOG 

166 006242 052737 OOOOOOG OOOOOOG 

167 006250 123727 OOOOOOG OOOOOOG 

168 006256 001003 

169 006260 052737 OOOOOOG OOOOOOG 
170 

171 006266 016102 000372 



11*: 
14*: 



MOV 

BIT 

BEQ 

INCB 

MOV 

ADD 

BR 

ADD 

MOV 



@#RMON, Rl ;Get pointer to RT-11 RMON base 
#CW*PRO, 370<R1) ;Are uie running on a PRO? 



11* 

PROFLG 

R5, PROBUF 

#PIINSZ,R5 

14* 

#INTSSZ,R5 

R5, INTSTK 



j Br if not 

i Set flag saying this is a PRO-350 

j Save pointer to buffer area 

; Allocate space for buffer 

/Allocate space for interrupt stack 
j Address of top of interrupt stack 



CMP 


R5, #INITOP 


BHIS 


4* 


MOV 


#INIT0P>R5 



Allocate space for those overlays that go over TSINIT 

CALL OVLPOS i Determine hou* much space to alloc for overlay 

Note: from this point onward uie are carrying the address of the 
base of the free memory area in R5. 

; Have uie allocated up to top of TSINIT? 

j Br if yes 

J Advance to top of TSINIT 

Allocate a 2048. byte work buffer 

4*: CALL ALCWRK ; Allocate work buffer 

Allocate empty Region Control Blocks for use by handlers 

CALL ALCHRB 

If we were started in debug mode* load ODT. 

> Don't allow ODT for production PRO version 

; Are we to load system debugger? 

J Br if not 

j Load ODT and start it 

Initialize memory management registers for 1-to-l mapping but 
leave memory management turned off 

2*: CALL MEMINI i Initialize memory management 

Extract information from RT-11 configuration and sysgen words. 

MOV @#RMON, Rl iGET POINTER TO BASE OF RMON 
MOV 300(R1),R2 ; GET RT-11 CONFIGURATION WORD 
BIC #CW*GDH+CW*BTH4-CW*LGS, R2 ; RESET A FEW FLAGS 
BIS #CW*FB+CW*FGJ+CW*USR+CW*XM. R2 i SET A FEW FLAGS 
MOV R2, CONFIG i INITIALIZE OUR CONFIGURATION WORD 
Now get extended conf igutation word. 



. IF 


EQ, PROCID 


TST 


ODTFLG 


BEQ 


2* 


CALL 


GETODT 


. ENDC 


} EQ, PROCID 



MOV 370(R1),C0NFG2 

BIS #CW*ESP, C0NFG2 

CMPB VBUSTP, #QBUS 

BNE 25* 

BIS #CW*QBS, C0NFG2 

; And sysgen option word. 

25*: MOV 372<R1),R2 



EXTENDED CONFIGURATION WORD 
SET EXIT NO SWAP FLAG 
Is this a Q-bus machine? 
Br if not 
Set QBUS flag 
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172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 



006272 
006276 
006302 



006306 
006312 
006314 
006322 
006342 



006346 
006352 
006356 
006360 
006362 
006366 
006370 
006372 
006376 
006402 



006404 
006412 



006414 
006422 



006424 
006432 
006440 



006442 
006446 
006450 



006454 
006460 
006462 
006466 
006474 



042702 OOOOOOC 
052702 OOOOOOC 
010237 OOOOOOG 



013700 
001015 
012737 



OOOOOOG 



000314' 000156 



010037 OOOOOOG 



MOV 


SYSVER, RO 


BNE 


30* 


MOV 


#RTVDEF, RTVPTR 


. GVAL 


#AREA, #276 


MOV 


RO, SYSVER 



012702 
120062 
001005 
000300 
120062 
001425 
000300 
062702 
020227 
103763 



023727 
103404 



012737 
000414 



1 1 3737 

1 1 3737 
000405 



105737 
001005 
013702 
1 1 6237 
105737 



000264 
000000 



000001 



000003 
000322 ' 



BIC #SG*ELG+SG*PAR+SO*MTS, R2 

BIS #SG*MMU+SG«MTM+SG* I OT+SG*TSX , R2 

MOV R2, SYSGEN i INITIALIZE OUR SYSGEN WORD 

If a system version number was specified^ use it. 

Else, get version number from RT-11, but limit to default. 

Has user specified version to emulate? 

If so, keep SYSVER 

If using RT version, set cutoff 

GET RT-11 SYSTEM VERSION NUMBER 

SET AS TSX-PLUS VERSION NUMBER 

Now scan the known version number table and try to locate a match. 
RO contains version # in low byte, udpate # in high byte 

30*: MOV #RTVER,R2 i Get ptr to first entry in table 
31*: CMPB RO, RT*VER(R2) ; Does main version match? 

Br if not 

Main version matches, get update to low byte 

Does the update match also? 

Its a match! Use this entry 

Get SYSVER back to low byte 
32*: ADD #RTV*SZ, R2 ilf not, step up to the next entry 

Past end of table? 

Keep checking if not 

Couldn't find version in tables. If we picked it up from RT, reset 
everything to the default. If it was usei — specified, then keep 
SYSVER, but use last entry ptr. 



MOV 


#RTVER, R2 


CMPB 


RO, RT*VER(R2) 


BNE 


32* 


SWAB 


RO 


CMPB 


RO, RT*UPD<R2) 


BEQ 


34* 


SWAB 


RO 


ADD 


#RTV*SZ, R2 


CMP 


R2, #RTVEND 


BLD 


31* 



000156' 000322 



000317' 000156' 



specified? (Got ver. from RT?) 
specified SYSVER, 



latest known defaults 



defaults 



000314' 
000315' 



OOOOOOG 
OOOOOOG 



33* 



CMP RTVPTR, #RT VEND ; Was a limit 

BLO 33* i Br if so 

Unknown user-specified version, keep user 
but use ptr to last known version 

MOV #<RTVEND-RTV*SZ>, RTVPTR i Use 

BR 36* 
Got version from RT, but don't recognize it, reset SYSVER and use 
RTVPTR was already set to default RTVDEF when we got RT version 

MOVB RTVDEF+RT* VER, SYSVER i Set SYSVER to default 

MOVB RTVDEF+RT*UPD, SYSUPD i and update 

BR 36* 

Version was identified in tables. RTVPTR contains limiting version ptr 
(RTVDEF if got vers from RT, RTVEND if user specified version) 



020237 000156 

103366 

010237 000156 



34*: 



CMP 

BHIS 

MOV 



R2, RTVPTR 

33* 

R2, RTVPTR 



Is it past limit? 

If so, keep limit, and go 

If not, use what we found 



limit SYSVER 



Now set some information that depends on the emulated version number 



OOOOOOG 



36*: 



000156' 

000002 OOOOOOG 

OOOOOOG 38*: 



TSTB CLVERS ; Use table value for CL version number? 

BNE 38* ; Br if not, use value supplied in TSGEN 

MOV RTVPTR, R2 i Get ptr to version table 

MOVB CL*VER(R2), CLVERS i Auto set CLVERS from version table 

TSTB LDVERS ; Auto-select LD translation table type? 
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229 006500 OOlOil BNE 39* J Qr if not, use value supplied in TSGEN 

230 006502 112737 000001 OOOOOOG MOVB #1,LDVERS ; Assume old translation table format 

231 006510 023727 000156' 000314' CMP RTVPTR, #RT54 ; At or beyond 5.4? 

232 006516 103402 BLO 39* i Br if not. retain old format 
133 006520 105237 OOOOOOG INCB LDVERS i LD translation table format changed at 5. 



n 



n 



34 006524 39*: 



I 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006524 
006532 



006534 
006542 
006550 
006556 
006564 
006570 



006572 
006600 
006606 
006614 
006622 



006626 
006632 
006634 
006640 



006650 
006656 
006660 
006664 



006672 
006700 
006706 
006712 
006716 
006724 



006730 
006736 



Set up a few clock constants based on clock frequency. 
See if we have a 50 or 60 Hz clock 



032737 
001017 



012737 
012737 
012737 
012737 
012700 
000416 



012737 
012737 
012737 
012737 
012700 



012702 
070200 
010237 
010337 



OOOOOOG OOOOOOG 



000074 
000036 
000264 
000006 
001130 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



INICLK: BIT 
BNE 

60 Hz clock 

MOV 
MOV 
MOV 
MOV 
MOV 
BR 

50 Hz clock 



000062 
000031 
000226 
000005 
000764 



020700 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



2«: 



MOV 
MOV 
MOV 
MOV 
MOV 



#CW*50H, CONFIG 



#60. , TKISEC 
#30. . TK5VAL 
#180. , TK3SVL 
#6. , TKIVAL 
#600. , RO 
8* 



#50. . TKISEC 
#25. , TK5VAL 
#150. ,TK3SVL 
#5. , TKIVAL 
#500. , RO 



; 50 or 60 Hz clock? 
; Br if 50 Hz 



Clock ticks per 1 second 
Clock ticks per 0. 5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Set number of clock ticks per day 



8*: 



MOV #8640. , R2 

MUL RO/ R2 

MOV R2, DATIMH 

MOV R3, DATIML 



J (# seconds per day) / 10. 
j Get # clock ticks per day 
/High-order value 
; Loui-order value 



006644 004737 005260 ' 



Do a fast check to make sure specified T/S line addresses are ok. 
CKLIN: CALL LINCHK ; CHECK T/S LINE ADDRESSES 

Do PRO-350 system initialization 



032737 
001405 
004737 
012737 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



IF NE, PROASM 

BIT #CW*PRO, C0NFG2 

BEQ INIDEV 

CALL PROINI 

MOV #PIDRIV, PIDPTR 

; NE, PROASM 



; Are we running on a PRO-350? 

i Br if not 

; Do PRO-350 initialization 

i Set up pointer to clock driven PI routine 



ENDC 

Make entry in device handler table for TT device. 



012737 
012737 
005037 
005037 
012737 
005037 



012737 
105737 



100040 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 OOOOOOG 

OOOOOOG 



177777 OOOOOOG 
OOOOOOG 



INIDEV: MOV 
MOV 
CLR 
CLR 
MOV 
CLR 



#R50TT, PNAME 

#DI*TT/ DVSTAT 

DVFLAG 

DEVSIZ 

#2, HANENT 

NUMDEV 



; PERMANENT NAME "TT" 

iSET DEVICE STATUS FLAGS FOR TT 



; SET UP HANENT SO HANDLER LOOKS RESIDENT 
; IT IS DEVICE # 



Make device table entry for LD (logical disk) device 



MOV #-l,LDDEVX 
TSTB VLDSYS 



; ASSUME LD SUPPORT NOT WANTED 
j IS LD SUPPORT GENNED IN? 
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6*: 



58 006742 001425 

59 006744 062737 000002 0000000 

60 006752 013701 OOOOOOG 

61 006756 010137 OOOOOOG 

62 006762 012761 045640 OOOOOOG 

63 006770 012761 OOOOOOC OOOOOOG 

64 006776 012761 OOOOOOG OOOOOOG 

65 007004 005061 OOOOOOG 

66 007010 012761 000002 OOOOOOG 
67 
68 
69 

70 007016 005727 OOOOOOG 

71 007022 001402 

72 007024 004737 013444' 
73 
74 
75 

76 007030 012737 000002 000000 8*: 

77 007036 005037 OOOOOOG 

78 007042 032737 OOOOOOG OOOOOOG 

79 007050 001402 

SO 007052 005037 000230 

81 i 

82 i 
S3 i 
84 007056 004737 016316' 
85 
86 
87 

88 007062 004737 015334' 
89 
90 
91 

92 007066 004737 015646' 
93 
94 
95 

96 007072 004737 016320' 
97 
98 
99 

100 007076 010537 000122' 

101 007102 013701 000124' 

102 007106 006301 

103 007110 062701 OOOOOOG 

104 007114 070127 000032 

105 007120 060105 
106 
107 
108 

109 007122 004737 024600' 
110 
111 
112 

113 007126 004737 013142' 
114 



BEQ 6* ; BR IF NOT 

ADD #2, NUMDEV i ONE MORE DEVICE 

MOV NUMOEV, Rl i GET DEVICE TABLE INDEX 

MOV RliLDDEVX ; REMEMBER INDEX NUMBER FOR LD DEVICE 

MOV #R50LD, PNAME(Rl) ; SET DEVICE NAME ("LD") 

MOV #<DS*DIR+DS*SFN+DS*VSZ+DI*LD>, DVSTAT<Rl>iSET DEV STATUS FLAGS 

MOV #DX*EBA, DVFLAG<R1 ); Say buffers must be on even byte boundaries 

CLR DEVSIZCRl) 

MOV #2, HANENT(Rl) i SAY HANDLER IS RESIDENT 

Make device table entry for CL (communications line) device 

i Are there any communications lines? 

) Br if not 

j Initialize CL handler 



TST 


#CLTOTL 


BEQ 


8* 


CALL 


CLINIT 



Disable clock interrupts. 

MOV #2, e#o 

CLR e#CLKVEC 

BIT #CW«PRO, C0NFG2 

BEQ 1* 

CLR @#230 



LOAD RTI IN LOCATION 
ATTACH CLOCK INTERRUPT TO 
ARE WE RUNNING ON A PRO? 
BR IF NOT 
380 CLOCK INTERRUPT VECTOR 



i Set up memory parity control 

i 

1*: CALL PARSET ; SET UP MEMORY PARITY CONTROL 

i 

i Determine how much memory is ins ta lied on machine 

i 

CALL MEMTST > FIND OUT HOW MUCH PHYSICAL MEMORY THERE IS 

i 

i Set up information about the size of the job context area 

i 

CALL CXTALC i Determine size of job context area 

i 

i Load TSX-Plus device handlers that go in low memory 

CALL GETHNL J Load low memory handlers 

i Reserve space for interrupt vector intercept routines for mapped handlers 

; Save address of base of area for XM vectors 
; Get # mapped handlers 

; Reserve room for 2 interrupts per handler 
iAdd # requested extra interrupt vectors 
iCalc space needed for interrupt entry code 
» Advance the address of free memory 

Set up device index number and unit number for "SY: " device. 

CALL SETSY i SET UP INFO ABOUT SY DEVICE 

Open channel to TSKMON and set up information about it. 

CALL OPNKMN : OPEN CHANNEL TO TSKMON 



MOV 


R5, XMVBAS 


MOV 


NMXHAN, Rl 


ASL 


Rl 


ADD 


#NXIVMH, Rl 


MUL 


#MPIVSZ,R1 


ADD 


RliR5 



< 
I 
I 

€ 

i 
i 
I 

€ 
I 
i 
< 
f 
< 
I 
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# # # Initialization done with RT-11 running * * * 



115 
116 
117 007132 004737 014110' 

lis 

119 

120 

121 007136 004737 014652' 

122 

123 

124 

125 007142 013737 0000000 0000000 

126 

127 

128 

129 007150 004737 010522' 

130 

131 

132 

133 007154 105737 0000000 

134 007160 001402 

135 007162 004737 007564' 
136 

137 

138 

139 007166 004737 010216' 

140 

141 

142 

143 007172 004737 021376' 

144 

145 

146 

147 007176 010500 

148 007200 004737 025104' 
149 

150 
151 
152 

153 007204 010537 0000000 

154 007210 062705 000077 

155 007214 072527 177772 

156 007220 042705 176000 
157 

158 

159 

160 007224 004737 012536' 

164 

162 

163 

164 

165 007230 010504 

166 007232 010437 000136' 

167 007236 013705 000134' 
168 

169 
170 
171 007242 004737 022010' 



Set up information about the IND program 

CALL INDINI ; INITIALIZE FOR IND PROGRAM 

Initialize the TSXUCL data file 

CALL UCLINI 
Set name of device that UCL program is to be run from 



MOV SYNAME, UCLNAM 
Initialize spooling system 

CALL SPLINI 
Open system siuap file 



SET DEVICE NAME FOR UCL PROGRAM 



■> INITIALIZE SPOOLING SYSTEM 



TSTB 


VSWPFL 


BEQ 


3* 


CALL 


OPNSWP 



IS JOB SWAPPING ALLOWED? 

BR IF NOT 

OPEN THE SYSTEM SWAP FILE 

i 

; Open suap file used for PLAS regions 

i 

3*. CALL OPNRSF iOpen PLAS region suiap file 

i 

} Set up information about which devices need to have their I/O mapped 

i 

CALL SETMIO i Set up information about mapped I/O 

i 

i We are finished allocating low-memory buffer space. 



MOV 
CALL 



R5, RO 

CHKMEM 



ENSURE WE DON'T OVERFLOW 40KB 
ABORT IF > 40KB OR INTO RT~11 



From this point on carry the free memory address in R5 
as a 64-byte block # in physical memory. 



MOV R5, UMSYTP 

ADD #77, R5 

ASH #-6, R5 

BIC #176000>R5 



SAVE ADDRESS OF NON-EXTENDED SYSTEM TOP 
BOUND UP TO 64-BYTE BOUNDARY 
CONVERT TO 64-BYTE BLOCK # 
KILL SIGN EXTENSION 



Allocate buffer space that is not contrained to 40Kb TSX-Plus region. 

CALL ALBFX i ALLOCATE EXTENDED BUFFERS 

We will now do some allocation from the top of physical memory downward. 
Save the base of free memory in R4 and get the top of free memory to R5. 



MOV 
MOV 
MOV 



R5i R4 

R4> FMEMLO 

FMEMHI.RS 



Load any mapped system code 



CALL 



GETMAP 



i Save the base of free memory in R4 

/Save pointer above top of alloc low memory 

; Get 64-byte block # of free high memory 



i LOAD USR, EMT, MSG, LOCK, SPOOL, etc. 



I 
I 
I 
I 
i 
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# * # Initialization done luith F?T-11 running * * * 



Load any shared run-time systems 



172 








173 








174 








175 


007246 


005727 


OOOOOOG 


176 


007252 


001415 




177 


007254 


012701 


OOOOOOG 


178 


007260 


010502 




179 


007262 


004737 


023472 ' 


ISO 


007266 


062701 


OOOOOOG 


181 


007272 


020127 


OOOOOOG 


182 


007276 


103771 




183 


007300 


160502 




184 


007302 


010237 


OOOOOOG 


185 


007306 






186 








187 








188 








189 








190 


007306 


105737 


OOOOOOG 


191 


007312 


001410 




192 


007314 


012701 


000244 ' 


193 


007320 


010502 




194 


007322 


004737 


023472 ' 


195 


007326 


160502 




196 


007330 


060237 


OOOOOOG 


197 








198 








199 








200 








201 


007334 


004737 


017634' 


202 








203 








204 








205 


007340 


004737 


024104' 


206 








207 








208 








209 








210 








211 


007344 


004737 


016006' 


212 








213 








214 








215 


007350 


004737 


016172' 


216 








217 








218 








219 


007354 


013702 


OOOOOOG 


220 


007360 






221 


007400 






222 


007406 


010037 


OOOOOOG 


223 


007412 


020237 


OOOOOOG 


224 


007416 


001010 




225 


007420 






226 


007426 






227 


007434 


000137 


004134' 


228 









5*: 



TST 


#NUMRDB 


BEQ 


4* 


MOV 


#RDB,R1 


MOV 


R5, R2 


CALL 


GETSRT 


ADD 


#RT**SZ,R1 


CMP 


R 1 . #RDBEND 


BLO 


5* 


SUB 


R5, R2 


MOV 


R2, SRTSIZ 



Do we need to load any shared run-times? 

Br if not 

Point to 1st run-time descriptor block 

Save initial memory pointer 

Load a shared run-time system 

Point to next shared run-time descriptor 

Are there more to load? 

Br if yes 

Compute amt of space used by run-times 

Save total run-time size 



4*. 
. IF 



HE, PROASM 
If we avs running on a Proj 



TSTB 


PROFLG 


BEQ 


10* 


MOV 


#PISRT, Rl 


MOV 


R5, R2 


CALL 


GETSRT 


SUB 


R5, R2 


ADD 


R2iMHNSIZ 



load the PI handler like a shared run-time 

Are we running on a Pro? 
Br if not 

Point to dummy shared run-time block for PI 
Save current memory pointer 
Load PI handler like a shared run-time 
Calculate amt of space used by PI handler 
Count in mapped-hand ler size 
ENDC ; NE, PROASM 

Load any mapped handlers 

10*: CALL GETHNH ; Load mapped handlers 

Allocate space for data cache buffers and control tables 

CALL CSHBUF ; Allocate space for data cache 

We have finished allocating all of the memory used by the system. 
Allocate and initialize a memory map table that will be used to 
show which pages are available for user jobs. 

CALL MAPALC {Allocate memory map table 

Set up info about maximum memory space available to jobs 



CALL SETJSZ 
Set up date and time 



MOV 


SYTIML-R2 


. GTIM 


#AREA, #SYTIMH 


. DATE 




MOV 


RO, SYSDAT 


CMP 


R2, SYTIML 


BNE 


11* 


. PRINT 


#TSXHD 


. PRINT 


#NOCLOK 


JMP 


INISTP 



iSET JOB SIZE INFO 



Save time we got at start of init 

SET TIME OF DAY 

GET DATE 

SET SYSTEM DATE 

Make sure some time has elapsed 

Br if clock is running 

Print error message heading 

Print clock-not-working message 

Abort initialization 
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# * # Initialization done with RT~11 running * # # 



229 

230 

231 007440 

232 

233 

234 

235 

236 007442 013702 000154' 

237 007446 006202 

238 007450 013703 000152' 

239 007454 000241 

240 007456 006003 

241 007460 000303 

242 007462 
243 

244 

245 

246 007516 004737 025144' 

247 

248 

249 

250 007522 000137 003420' 



Unlock the USR so that TSEMT will be swapped back in. 



11*: 



UNLOCK 



; RELEASE USR 



Read back into memory that part of the resident portion of TSX 
that me overlayed with our work buffer. 



WRKSIZi R2 
R2 
WRKBUF, R3 



; Get size of work buffer 

J Convert to # words 

; Get address of work buffer area 

; Convert to block # in TSX. SAV file 



MOV 

ASR 

MOV 

CLC 

ROR R3 

SWAB R3 

. READW #AREA, #17, WRKBUF. R2i R3 ; Read back TSX over work buffer 

See if user requested control-C abort 

CALL CCATST i JUMP TO INISTP IF -^C-^C BEFORE THIS POINT 

Jump to code at end of TSINIT which takes over control from RT-11 

JMP TAKOVR 
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* # # Subroutines •«■■«■ ■»■ 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 007526 
13 
14 
15 
16 

17 007530 
IS 007534 

19 007540 

20 007544 

21 007550 
22 

23 
24 

25 007556 

26 007560 



010246 



012702 
062702 
042702 
010237 
012737 



012602 
000207 



OOOOOOG 

000777 

000777 

000152' 

004000 000154' 



SBTTL * * * Subroutines * # * 

SBTTL ALCWRK — Allocate a work buffer 



Allocate a 2048. byte work buffer over a resident portion of TSX. 
This area ujill be restored from the TSX. SAV disk file after uie 
are finished using the work area. 



Outputs: 
WRKBUF = Address of base of work buffer. 
WRKSIZ = Size of work buffer <204S). 



ALCWRK: MOV 



R2, -(SP) 



Get address of start of area where buffer can go and then bound 
up to a block boundary. 



MOV 
ADD 
BIC 
MOV 
MOV 

Finished 



MOV 
RETURN 



#EXCBUF, R2 
#777, R2 
#777, R2 
R2, WRKBUF 
#2040. , WRKSIZ 



<SP)+, R2 



; Get address of base of buffer area 
> Bound up to block boundary 
; Set to block boundary 



i 

€ 
€ 



TSINIT 
ALCHRB 
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— Allocate Region Control Blocks for handlers 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



00756J 



000207 



. SBTTL ALCHRB — Allocate Region Control Blocks for handlers 

This routine allocates and initializes empty Region Control Blocks for 
use by device handlers. Handler XM regions not supported on Pro/TSX-Plus. 



. IF 



NE, <PR0ASM-1> iOnly for 11 's 



Inputs: 
R5 = Pointer to start of memory area where RCB's are to be built. 

Outputs: 
R5 = Pointer past end of RCB area. 

ALCHRB: MOV R2, -<SP) 

Get count of # RCB's to build 

MOV NDVRCB, RO j Get # RCB's to build for handlers 

Store pointer to start of RCB area and store ~1 at beginning of area 

MOV R5, HANRCB ; Start of RCB area 

MOV R5, HANRCO ; Store offset relative to MONVEC 

SUB #MONVEC, HANRCO ; Convert address to offset 

MOV #-1, <R5)+ ; Store -1 at start of area 

Allocate and initialize to zero the RCB's 



1*: 
2«: 



MOV 
CLR 
SOB 



#5. , R2 
<R5) + 
R2, 2« 



> Each RCB has 5 words 
; Zero the RCB 



See if there are more RCB's to build 



DEC 
BGT 



RO 
1* 



Store -1 at end of RCB area 



MOV 

i Finished 

MOV 
RETURN 

. IFF 
ALCHRB: RETURN 
. ENDC 



#~1, (R5)+ 



(SP)+, R2 



i More RCB's to initialize? 
i Loop if yes 



;Mark end of RCB list 



; NEj <PR0ASM-1> ; Dummy for Pro-only 
i NEi <PR0ASM-1> 



TSINIT 
ALCHRB 
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Allocate Region Control Blocks for handlers 



I € 
4 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



I 
I 



IF NE. <PR0ASM-1> J If not assembling for Pro only 
. SBTTL LINCHK — Check validity of T/S line 

LINCHK is called to check the validity of specified T/S line 
vector and status register addresses. 

If an uninstalled line is detected this routine aborts if 
INIABT=1 or sets the *DEAD flag for the line if INIABT=0. 



LINCHK: 


MOV 


Rli-(SP) 




MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


R4, -<SP) 




MOV 


e#4, -(SP) 


i Take 


over 


trap control 



iSAVE ORIGINAL TRAP VECTOR 



J CATCH TRAPS 

Loop through the test for each line. 

MOV #LSTLIN*R1 {NUMBER OF LAST LINE 

Determine if this is a primary line or an I/O line and set the 
addresses of the interrupt service routines. 



1*: 



CALL 

BIT 

BEQ 

MOV 

BEQ 

MOV 

BEQ 

MOV 

BR 

11*: CALL 
BR 

2«: MOV 
MOV 

i Check vali 

3*: CMP 
BLO 
BIT 
BNE 
TST 

i Check vali 
CMP 
BLO 
CMP 
BHIS 
BIT 
BNE 
line 
SUB 
BGT 



This 



31*: 



LINTYP 

#*HARD, LSW3<R1) 

31* 

LMXNUM(R1),R3 

2* 

MXCSR<R3),R2 

11* 

MXVEC<R3),R4 

3* 

4* 

31* 

RSR<R1),R2 

INVEC(R1>, R4 
dity of status regis 

R2, #160000 i 

LINTRP i 

#7, R2 ; 

LINTRP ; 

@R2 i 

dty of interrupt vec 

R4, #60 ; 

BADVEC 

R4, #500 

BADVEC 

#7, R4 

BADVEC 
looks good. Che 

#2i Rl 

1* 



Determine the type of this line 

Is this line connected to hardware? 

Br if not 

IS THIS A DL-11 OR MULTIPLEXER LINE? 

BR IF DL-11 

GET DZll OR DHll STATUS REGISTER ADDRESS 

BR IF ALREADY MARKED AS DEAD 

GET MUX INTERRUPT VECTOR ADDRESS 

MARK LINE AS DEAD 

CONTINUE CHECKING TERMINALS 

GET DL-11 STATUS REGISTER ADDRESS 

GET DL-11 INTERRUPT VECTOR ADDRESS 

ter address. 

IS IT IN I/O PAGE? 

ERROR IF NOT 

IS IT ON S-BYTE BOUNDARY? 

ERROR IF NOT 

TRY TO ACCESS IT AND SEE IF WE TRAP 

tor address. 

CAN'T BE BELOW 60 



;0R ABOVE 500 

iMUST BE ON 8-BYTE BOUNDARY 

ck next. 

iMORE TO CHECK? 
iBR IF YES 



Finished — all lines look ok. 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
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Allocate Region Control Blocks for handlers 



MOV 


(SP>+, 


@#4 


MOV 


< SP ) +; 


R4 


MOV 


(SP)+, 


R3 


MOV 


( SP ) +, 


R2 


MOV 


(SP)+, 


Rl 


RETURN 







i RESTORE TRAP VECTOR 



See if we should abort or just mark the line as dead. 



4*: 



5*: 



TSTB 

BNE 

BIS 

TST 

BEQ 

CLR 

RETURN 



VINABT i DOES HE WANT TO ABORT? 

LINTRP i YES 

#*DEADiLSW3<Rl) ; MARK LINE AS DEAD 

R3 i IS THIS A DLll OR A MUX LINE? 

5* ;BR IF DLll 

MXCSR<R3) ; MARK DZ OR DH AS DEAD 



Trap occured uihile trying to access status register 
6*: CALL 4* 



CALL 
RTI 



; REPORT ERROR OR MARK AS DEAD LINE 
i RETURN TO LINE CHECKING 



Error: Invalid status register address. 

Rl = Line number, R2 = status register address 



LINTRP: .PRINT #TSXHD 
.PRINT #BADLIN 
BR ERP 



i PRINT ERROR MESSAGE 



Error: Invalid interrupt vector address. 

Rl = Line number, R4 = interrupt vector address 



BADVEC: .PRINT #TSXHD 

.PRINT #BDVMSG 

MOV R4, R2 

ERP: MOV R2, RO 

CALL PRTOCT 

.PRINT #CRLF 

-PRINT #BDLMSG 

MOV R1,R0 

ASR RO 

CALL PRTDEC 

.PRINT #CRLF 

JMP INISTP 

. ENDC i NE, <:PR0ASM-1> 



i PRINT ERROR MESSAGE 

; GET VECTOR ADDRESS TO R2 
i GET ADDRESS TO RO 
; PRINT OCTAL VALUE 

iLINE # = 

;GET LINE NUMBER 

;# 1 

J PRINT LINE NUMBER 

; ABORT INITIALIZATION 



i 

€ 
f 

I 
I 
i 
I 
€ 
I 
I 
€ 
€ 
i 

i 
« 

i 

K 
I 
i 
I 

c 



i 

€ 
€ 



TSINIT — TSX 


startup 


initial! z 


OPNSWP — Open 


system 


siuap file 


1 
2 






*-> 






o 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 007564 


010146 




14 007566 


010246 




15 007570 


010346 




16 






17 






IS 






19 007572 


013700 


0000000 


20 007576 


004737 


024770 ' 


21 007602 


103546 




22 






23 






24 






25 007604 


012703 


OOOOOOC 


26 007610 


012701 


OOOOOOG 


27 007614 


032761 


0000000 


28 007622 


001001 




29 007624 


005203 




30 007626 


162701 


000002 


31 007632 


003370 




32 007634 


020337 


OOOOOOG 


33 007640 


002002 




34 007642 


010337 


OOOOOOG 


35 






36 






37 






38 007646 


013703 


OOOOOOG 


39 007652 


006303 




40 007654 


063703 


OOOOOOG 


41 007660 


010337 


OOOOOOG 


42 






43 






44 






45 007664 


070337 


OOOOOOG 


46 






47 






48 






49 






50 007670 






51 007710 


103415 




52 






53 007712 


020003 




54 007714 


001453 




55 






56 






57 007716 
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SBTTL OPNSWP — Open system smap file 



OPNSWP is called to open the TSX job swap file. 
It also assigns swap file slots for each line. 

Inputs: 
R5 = Address of base of free memory region 

Outputs: 
SWPCHN = Set up for access to swap file. 
LSWPBK(i) =: Starting block number in swap file for swap mrea for line. 



OPNSWP: MOV 
MOV 
MOV 



R 1 i - < SP ) 
R2, -(SP) 
R3, -(SP) 



Load RT-11 handler for swap device. 



MOV SWDBLK, RO 
CALL RTFTCH 
BCS 11* 



; Get name of device 

i Fetch the RT-11 handler 

; Br if invalid device 



Compute the maximum number of slots in swap file that we could need 



OOOOOOG 1*: 



5*: 



MOV 
MOV 
BIT 
BNE 
INC 
SUB 
BGT 
CMP 
BGE 
MOV 



#NSL+NDL, R3 
#LSTPL, Rl 



;Get # virtual lines and detached jobs 
jGet index to last primary line 



#*DEAD, LSW3(R1) ; Is this line installed? 



5* 

R3 

#2>R1 

1* 

R3, VSWPSL 

6* 

R3, VSWPSL 



i Br if not 

j Count another primary line 

> Get next line index 

i Loop if more lines to check 

; Compare with # slots specified 

i Br if VSWPSL value is ok 

/Reduce number of slots in swap file 



Determine how many blocks are needed for each slot in swap file. 
6*: MOV VHTMFM. R.T j GET # BLOCKS NEEDED FOR LARGEST JOB SIZE 



MOV 
ASL 
ADD 
MOV 



VHIMEM, R3 

R3 

CXTPAG, R3 iADD # BLOCKS NEEDED FOR JOB CONTEXT AREA 

R3/SLTSIZ » Save size of swap file slot 



Compute the total number of blocks needed for the swap file. 

MUL VSWPSL, R3 ; Multiply by # slots in swap file 

R3 now contains total number of blocks needed in swap file. 
See if swap file already exists on disk. 

4*: .LOOKUP #AREA, #1 , #SWDBLK; DOES SWAP FILE EXIST NOW? 

BCS 2* } BR IF NOT 

i Swap file exists. See if it is the right size. 

CMP RO, R3 ; IS SWAP FILE THE RIGHT SIZE? 

BEQ 3* i BR IF YES 

i Old swap file is not of correct size. 
i Delete it and open a new swap file. 

. CLOSE #1 



TSINIT - 


— TSX s 


tartup initializ 


OPNSWP - 


— Open 


system s 


utap file 


58 


007724 






59 








60 








61 








62 


007744 






63 


007770 


103443 




64 








65 








66 








67 








68 








69 


007772 


005303 




70 


007774 






71 


010032 


005203 




72 


010034 






73 


010042 


000712 




74 








75 








76 








77 








78 


010044 


012700 


0000000 


79 


010050 


013702 


OOOOOOG 


SO 


010054 


004737 


024410' 


81 








82 








S3 








84 


010060 






85 








86 








87 








88 


010070 


012603 




89 


010072 


012602 




90 


010074 


012601 




91 


010076 


000207 




92 








93 








94 








95 


010100 






96 


010106 






97 


010114 


004737 


010142' 


98 








99 








100 








101 


010120 


010001 




102 


010122 






103 


010130 






104 


010136 


004737 


010170' 


105 








106 








107 








108 


010142 






109 


010150 


010300 




110 


010152 


004737 


025230 ' 


111 


010156 






112 


010164 


000137 


004134' 


113 








114 
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.DELETE #AREA,#l,#SWDlBLKi DELETE THE OLD SWAP FILE 
i Create a new swap file. 



2$: 



3*: 



.ENTER #AREA, #1, #SWDBLK, R3 j CREATE A NEW SWAP FILE 
DCS 9* ;BR IF SOME ERROR ON OPEN 

Swap file has been created. 

Write to last block to reserve full space in file then close 

and reopen the channel using a . lookup. 

DEC R3 ; GET # OF LAST BLOCK IN FILE 

.WRITW #AREA, #1,#TSINIT, #256. ,R3 i WRITE TO LAST BLOCK IN FILE 

INC R3 i GET BACK # BLOCKS IN FILE 

• CLOSE #1 ; CLOSE FILE WE CREATED 

BR 4* ; NOW GO REOPEN USING A . LOOKUP 

Swap file has been successfully opened using a . lookup. 
Now copy channel status to TSX swap channel. 

POINT TO SWAP CHANNEL BLOCK 

GET DEVICE NAME 

SET UP SWAP CHANNEL INFO 

Release the RT-11 device handler 

. RELEAS #SWDBLK ; Release RT-11 device handler 

Finished 



MOV 


#SWPCHN, RO 


MOV 


SWDBLK, R2 


CALL 


SETCHN 



MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





i Error: Cannot open swap file 

i 

9*: .PRINT #TSXHD ; PRINT ERROR MESSAGE 

.PRINT #BADOPN 
CALL SPNEED ; Print info about number of blocks needed 

i 

i Error: Invalid device specification. 



11*: MOV RO, Rl 

. PRINT #TSXHD 

.PRINT #BADOPN 

CALL BADDEV 



i Save device name 

i Print error message 



iPrint invalid device specification 
Error: Number of contiguous blocks required. 



SPNEED: .PRINT #CONSPC 

MOV R3, RO 

CALL PRTDEC 

.PRINT #CRLF 

JMP INISTP 

i 

i Bad file specification. 



/Print contiquous blocks needed 
i GET # BLOCKS NEEDED FOR FILE 
i DISPLAY # BLOCKS NEEDED 

; ABORT INITIALIZATION 



I 
I 
I 
I 
I 
I 
I 

4 
€ 

f 
I 
I 
4 

i 

1 
i 
i 
i 
f 

€ 
4 

i 



TSINIT - 
OPNSWP - 

115 
116 
117 
118 
119 
120 



TSX startup initializ 
Open system swap file 
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010170 
010176 
010200 
010204 
010212 



010100 
004737 



025274 



000137 004134 



.PRINT 


#CFHMSG 


MOV 


R1,R0 


CALL 


PRTR50 


. PRINT 


#CRLF 


JMP 


INISTP 



;Print invalid device specification 

;Get the radSO device name 

> Print radSO device name 

; Print carriage return/line feed 

iAbort initialization 



f 
4 
I 
I 

I 

I 
i 
i 
i 



TSINIT - 


— TSX s 


startup initializ 


OPNRSF - 


— Open 


PLAS reg 


ion suap 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


010216 


010346 




12 








13 








14 








15 








16 


010220 


105737 


OOOOOOG 


17 


010224 


001513 




IS 


010226 


005737 


OOOOOOG 


19 


010232 


001510 




20 








21 








22 








23 


010234 


013700 


OOOOOOG 


24 


010240 


004737 


024770 ' 


25 


010244 


103515 




26 


010246 


013703 


OOOOOOG 


27 








28 








29 








30 


010252 






31 


010272 


103416 




32 








33 








34 








35 








36 


010274 


020037 


OOOOOOG 


37 


010300 


001453 




38 








39 








40 








41 








42 


010302 






43 


010310 






44 








45 








46 








47 


010330 






48 


010356 


1034<q0 




49 








50 








51 








52 








53 








54 


010360 


005303 




55 


010362 






56 


010420 






57 


010426 


000711 
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SBTTL OPNRSF — Open PLAS region suap file 



OPNRSF is called to open the swap file used for PLAS regions. 

Inputs: 
R5 = Address of base of free memory area. 

Outputs: 
SEGCHN - Set up to access smap file. 



OPNRSF: MOV 



R3, ~<SP) 



TSTB 


VSWPFL 


BEQ 


9* 


TST 


VPLAS 


BEQ 


9* 



4*: 



Return if this is a non~sujapping system or if region swap file is 
not wanted. 

J Is this a non-swapping system? 
; Br if yes 

; Is a PLAS swap file wanted? 
i Br if not 

Load RT-11 device handler for swap device 

; Get name of device 

i Try to fetch the RT-11 device handler 

i Br if error on handler fetch 

iGet # blocks in PLAS swap file 

See if PLAS swap file already exists on disk 

.LOOKUP #AREA, #1, #RSFBLK i Try to find existing PLAS swap file 
BCS 2* i Br if file does not now exist 

PLAS swap file exists. 

See if it is the correct size. 



MOV 


RSFBLK, RO 


CALL 


RTFTCH 


BCS 


11$ 


MOV 


VPLAS, R3 



CMP 
BEG 



RO, VPLAS 
3* 



i Is swap file of the correct size? 
; Br if yes 



Old PLAS swap file is not of correct size. 
Delete it and open a new swap file. 

.CLOSE #1 iClose and delete the old file 

.DELETE #AREA, #1, #RSFBLK; Delete the old file 

Create new swap file 

?*: .ENTER #AREA, #1, #RSFBLK, VPLAS i Create a new PLAS swap file 
BCS 10* i Br if cannot create new file 

New swap file has been created. 

Write to last block to reserve full file size 

and then close and reopen with a lookup. 

DEC R3 iGet # of last block in file 

.WRITW #AREA, #1,#TSINIT, #256. ,R3 

. CLOSE #1 

BR 4* ; Go back and lookup file 



i 
I 
c 
i 
i 

€ 
i 
i 



TSINIT - 


-- TSX s 


►tartup initializ 


OPNRSF - 


— Open 


PLAS reg 


ion swap 


58 








59 








60 








61 








62 


010430 


012700 


OOOOOOG 


63 


010434 


013703 


OOOOOOG 


64 


010440 


004737 


024410' 


65 








66 








67 








68 


010<?44 






69 








70 








71 








72 


010454 


012603 




73 


010456 


000207 




74 








75 








76 








77 


010460 






78 


010466 






79 


010474 


004737 


010142' 


80 








81 








82 








83 


010500 


010001 




84 


010502 






85 


010510 






86 


010516 


004737 


010170' 
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; Siuap -file has been successfully opened usinq lookup. 
; Copy channel status to TSX channel block. 



3*: MOV #SEGCHN, RO 
MOV RSFBLK, R3 
CALL SETCHN 



; Point to TSX PLAS suiap channel 

i Get device name 

j Set up TSX channel block 



; Release the RT-11 device handler 

J 

. RELEAS #RSFBLK /Release RT-11 device handler 

i 

; Finished 

i 

9*: MOV <SP)+, R3 
RETURN 

i 

; Error — Cannot open PLAS swap file 

> 

10*: 



PRINT #TSXHD 
.PRINT #RSFERR 
CALL SPNEED 



i Print error prefix 

j Print error message 

; Print information about amt of space needed 



i Error: Invalid device specification. 



11*: MOV RO, Rl 

. PRINT #TSXHD 

.PRINT #RSFERR 

CALL BADDEV 



» Save device name 
i Print error message 

iPrint invalid device specification 



i 
( 
( 
i 



i 
i 
i 
i 
i 
i 
i 



TSINIT — TSX startup initializ MACRO V05. 05 
SPLIIMI — Initialize spooling system 



1 
2 
3 
4 
5 
6 

7 010522 

8 010526 

9 010530 
10 010532 
11 



12 
13 

14 010534 

15 010536 

16 010540 

17 010542 
IS 010544 
19 

20 
21 



005727 OOOOOOG 

001401 

000401 

000207 



010146 
010246 
010346 
010446 
010546 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 




10546 
10552 
10556 
10562 
10566 
10572 
10574 
10600 
10602 
10606 
10610 
10612 
10614 
10620 
10622 
10624 
10630 
10634 
10636 
10642 
10644 
10650 
10652 
10656 
10660 
10662 
10666 
10672 
10674 
10700 



105037 
012701 
012703 
012704 
004737 
011302 
010261 
010100 
062700 
1 1 2420 
112420 
112420 
020227 
001451 
010200 
004737 
010061 
010200 
004737 
103406 
004737 
103414 
105237 
000432 
010100 
062700 
004737 
103403 
105237 
000421 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
011574' 

OOOOOOG 

OOOOOOG 



OOOOOOG 

011476' 
OOOOOOG 

011372' 

011306' 

OOOOOOG 



OOOOOOG 
024322 ' 

OOOOOOG 
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. SBTTL SPLINI — Initialize spooling system 



SPLINI performs the initialization of the spooling system. 
Inputs: 
R5 = Current base of free memory area. 



SPLINI; TST #SPLND 

BE(3 13* 

BR 10* 

13*: RETURN 



i Are there any spooled devices? 

* Br if not 

; Initialize the spooled devices 



There 



10*: 



Open 



2*: 



14*: 



51 
52 
53 
54 
55 
56 
57 010702 012761 OOOOOOG OOOOOOG 3*: 



> are 


some spooled devices 


liOV 


R1,-(SP) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


each 


spooled device 


CLRB 


NSPLDV 




MOV 


#SDCE,R1 




MOV 


#SPLDEV- R3 




MOV 


#SPLANM, R4 




CALL 


FORCEO 




MOV 


(R3),R2 




MOV 


R2, SDNAME(Rl) 




MOV 


R1,R0 


, 


ADD 


#SDANAM, RO 




MOVE 


(R4)+, (R0) + 


> 


MOVE 


(R4)+, (R0) + 


MOVE 


(R4)+, (R0)+ 


CMP 


R2, #DMYDEV 




BEQ 


1* 




MOV 


R2, RO 




CALL 


CVTDVU 




MOV 


RO, SDDVU(Rl) 




MOV 


R2, RO 




CALL 


CHKCLD 




ECS 


14* 




CALL 


SPLCLD 




ECS 


3* 




INCE 


NSPLDV 




ER 


1* 




MOV 


R1,R0 




ADD 


#SDCHAN, RO 




CALL 


OPNCHN 




ECS 


3* 




INCE 


NSPLDV 


\ 


BR 


1* 


{ 



INIT COUNT OF # ACTUAL SPOOLED DEVICES 

POINT TO 1ST SDCE 

POINT TO TABLE OF RAD50 DEV NAMES 

POINT TO TABLE OF ASCII DEV NAMES 

FORCE UNIDENTIFIED UNIT #S TO 

GET RAD50 NAME OF SPOOLED DEVICE 

SET NAME IN SDCE 

GET ADDRESS OF SDCB 

POINT TO CELL FOR ASCII NAME 

MOVE IN ASCII DEVICE NAME 



Is this a dummy entry for later patching? 

Br if yes — Ignore it 

Get name to RO 

Convert name to device # and unit # 

Store device # and unit # in SDCB 

Get device name 

See if this is a CL device? 

Br if not 

Set up for spooling to CL device 

Br if invalid unit 

Count # of actual spooled devices 

Process next device 

Get address of SDCB 

Point to channel block within SDCB 

Set TSX-Plus channel block open to device 

Br if did not recognize device 

Count # actual spooled devices 

GO PROCESS NEXT DEVICE 



Error on opening spooled device 

Determine if we should print an error message or simply 

mark the spooled device as unavailable. 



MOV 



#DMyDEV>SDNAME(Rl)i SAY THIS DEVICE IS NOT SPOOLED 



TSINIT - 


— TSX s 


tartup initiaiiz 


SPLINI - 


— Initialize sp 


Doling 5 


58 


010710 


105737 


OOOOOOG 


59 


010714 


001413 




60 


010716 






61 


010724 






62 


010732 


010200 




63 


010734 


004737 


025274 ' 


64 


010740 


000137 


004134' 


65 








66 








67 








68 


010744 


062701 


0000000 


69 


010750 


005723 




70 


010752 


020327 


OOOOOOG 


71 


010756 


103703 




72 








73 








74 








75 


010760 


105737 


OOOOOOG 


76 


010764 


001521 




77 


010766 


013700 


OOOOOOG 


78 


010772 


004737 


024770 ' 


79 


010776 


103532 




80 


011000 


013702 


OOOOOOG 


81 


011004 


005202 




82 








S3 








84 








85 


011006 






86 


011026 


103415 




87 


011030 


020002 




88 


011032 


001453 




89 


011034 






90 


011042 






91 








92 








93 








94 


011062 






95 


011106 


103456 




96 








97 


011110 


010203 




98 


011112 


005303 




99 


011114 






100 








101 


011152 






102 


011160 


000712 




103 








104 








105 








106 








107 


011162 


012700 


OOOOOOG 


108 


011166 


013702 


OOOOOOG 


109 


011172 


004737 


024410' 


110 


011176 






111 








112 








113 








114 


011206 


1 1 3703 


OOOOOOG 
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TSTB VINABT 

BEQ 1* 

. PRINT #TSXHD 

.PRINT #BDSPOP 

MOV R2, RO 

CALL PRTR50 

JMP INISTP 

Process next spooled device 

1*: ADD #SDCBSZ*R1 

TST <R3)+ 

CMP R3, #SPLDVN 

BLO 2* 

Open the spool file 



TSTB 


NSPLDV 




BEQ 


12* 




MOV 


SPLBLK, 


RO 


CALL 


RTFTCH 




BCS 


11* 




MOV 


NSPLBL. 


R2 


INC 


R2 





ABORT OR CONTINUE ON ERRORS? 

BR TO IGNORE DEVICE AND CONTINUE INIT 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 
ABORT INITIALIZATION 



POINT TO NEXT SDCB 
POINT TO NEXT DEVICE NAME 
OPENED ALL SPOOLED DEVICES? 
BR IF MORE TO DO 



ARE THERE ANY ACTUAL SPOOLED DEVICES? 

BR IF THERE ARE NO ACTUAL SPOOLED DEVICES 

Get name of device for spool file 

Fetch the RT-11 device handler 

Br if cannot fetch handler 

GET # BLOCKS TO ALLOCATE FOR FILE 

Add 1 extra block 



See if spool file already exists 



5*: 



. LOOKUP #AREA, #1, #SPLBLK 

BCS 6* 

CMP RO, R2 

BEQ 7* 

. CLOSE #1 

. DELETE #AREA, #1, #SPLBLK 

Open new spool file 



SEE IF SPOOL FILE ALREADY EXISTS 

BR IF IT DOES NOT EXIST 

IS IT THE RIGHT SIZE? 

BR IF YES 

IT EXISTS BUT IS OF WRONG SIZE 

DELETE CURRENT FILE AND OPEN NEW ONE 



6$: 



.ENTER #AREA,#l,#SPLBLK,R2i CREATE A NEW SPOOL FILE 
BCS 8* iBR IF ERROR ON ENTER 

Write to last block in file to reserve full file space 
MOV R2, R3 ;Get # of blocks in file 

DEC R3 ;Get # of last block in file 

. WRITW #AREA, #1, #TSINITi #256. , R3 

Not!) close and reopen usinq a lookup 

.CLOSE #1 " i CLOSE SPOOL FILE 

BR 5* > GO BACK AND REOPEN USING LOOKUP 

Spool file has been successfully opened with a lookup. 
Save the channel status. 



I 

4 
f 
I 



7*: MOV #SPLCHN, RO 
MOV SPLBLK, R2 
CALL SETCHN 
. RELEAS #SPLBLK 



SAVE CHANNEL STATUS HERE 

GET DEVICE NAME 

SAVE CHANNEL STATUS 

Release the RT-11 device handler 



Set number of free public blocks in spool file 

MOVE NSPLDV, R3 ; Get # spooled devices 



TSINIT - 


-- TSX s 


tar tup initializ 


SPLINI - 


— Initialize sp 


Doling s 


115 


011212 


070327 


OOOOOOG 


116 


011216 


005403 




117 


011220 


063703 


OOOOOOG 


118 


011224 


010337 


OOOOOOG 


119 








120 








121 








122 


011230 


012605 




123 


011232 


012604 




124 


011234 


012603 




125 


011236 


012602 




126 


011240 


012601 




127 


011242 


000207 




128 








129 








130 








131 


011244 






132 


011252 






133 


011260 


000137 


004134' 


134 








135 








136 








137 


011264 


010001 




138 


011266 






139 


011274 






140 


011302 


004737 


010170' 
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MUL 
NEG 
ADD 
MOV 

Finished 



12*: 



9«: 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



#PVSPBL, R3 
R3 

NSPLBL, R3 
R3. NFRESB 



<SP)+, R5 
(SP)+, R4 
(SP)+, R3 
<SP>+, R2 
(SP)+,R1 



i Times number of private blocks per dev 

; Get # public spool blocks 
;This is number of public free spool blocks 



Error: Cannot open spool file. 

8*: .PRINT #TSXHD i PRINT ERROR MESSAGE 

. PRINT #BOSF 
JMP INISTP i ABORT INITIALIZATION 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #BOSF 

CALL BADDEV 



; Save device name 

> Print error message 

iPrint invalid device specification 



I 

i 
i 






c 






4 

j C 

I I 
I 



TSINIT - 
SPLCLD ■ 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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— Set up spooling to a CL device 



011306 010546 



011310 010005 

011312 020527 0000000 

011316 103022 



011320 005061 OOOOOOC 

011324 020527 000007 

011330 101405 

011332 162705 000010 

011336 013700 OOOOOOG 

011342 000402 

011344 013700 0000000 

011350 010061 OOOOOOC 

011354 110561 OOOOOOC 



011360 000241 
011362 000401 



011364 000261 



011366 
011370 



012605 
000207 



. SBTTL SPLCLD — Set up spooling to a CL device 



SPLCLD is called to set up a spool device control block when 
spooling is being directed to a Communication Line (CL) devici 

Inputs: 
RO = CL unit number 
Rl = Address of SDCB 

Outputs; 
C-flag set ==> Invalid CL unit 

SPLCLD: MOV R5, -(SP) 

Make sure CL unit number is valie 



I 
I 
I 



MOV 


RO, R5 


CMP 


R5, #CLTOTL 


BHIS 


8* 



1*: 
2*: 



; Set CL unit number 

; Is this a valid unit # 

J Br if inval id 



Set up channel control block in SDCB 

CLR SDCHAN+C. SBLK<Rl)i Starting block # = 

CMP R5, #7 /Is this a CL or CI unit? 

BLOS 1* i Br if CL unit 

SUB #8. I R5 i Remove CI unit # bias 

MOV CIDEVX.RO j Get CI device index number 

BR 2* 

MOV CLDEVX, RO J Get CL device index number 

MOV RO, SDCHAN+C. CSW<Rl);Set device index number 

MOVB R5, SDCHAN+C. DEVQ<R1); Set unit # 

We successfully set up a CL unit 

/Signal success on error 



CLC 
BR 



9* 



We cannot open this CL unit 
8*: SEC 
Finished 



i Signal error 



9*: 



MOV 
RETURN 



<SP)+, R5 



€ 
€ 
€ 

€ 



TSINIT - 
CHKCLD - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



TSX startup initializ MACRO V05. 05 Friday 20-Jan-S9 11:30 Page 35 
See if a device name is a CL or CI unit 



011372 



011372 020027 012240 

011376 001411 

011400 020027 012276 

011404 103432 

011406 020027 012305 

011412 101005 

011414 162700 012276 

011420 000422 

011422 005000 

011424 000420 



011426 020027 013630 

011432 001413 

011434 020027 013666 

011440 103414 

011442 020027 013675 

011446 101011 

011450 162700 013666 

011454 062700 000010 

011460 000402 

011462 012700 000010 



011466 000241 
011470 000401 



011472 000261 



011474 000207 



. SBTTL CHKCLD — See if a device name is a CL or CI unit 
Determine if a radSO device and unit name is a CL or CI device. 



Inputs: 
RO = Rad50 device spec 

Outputs: 
C-flag set ==> Not a CL or CI unit 
C-flag cleared ==> This is a CL or CI unit 
RO = CL unit number (0-15) 

CHKCLD: 

See if this is a CL unit 



1*: 



CMP RO, #R50CL 

BEQ 1* 

CMP RO. #R50CL0 

BLO 8* 

CMP RO, #R50CL7 

BHI 2* 

SUB #R50CL0, RO 

BR 7* 

CLR RO 

BR 7* 

See if this is a CI unit 



2*: CMP RO, #R50C1 

BEQ 3« 

CMP RO, #R50C10 

BLO 8$ 

CMP RO, #R50C17 

BHI 8$ 

SUB #R50C10, RO 

ADD #8. , RO 

BR 7* 

3*: MOV #8. ,R0 

This is a CL or CI unit 



7*: 



CLC 
BR 



9* 



This is not a CL or CI unit 
8*: SEC 

Finished 
9*: RETURN 



i Is name "CL"? 

,■ Br if yes 

; Is name in the range CLO to CL7? 

; Br if not 



j Get CL unit number 
i CL = CLO 



; Is name "CI"? 

i Br if yes 

i Is name in the range CIO to C17? 

i Br if not 



> Get unit number 

; Bias by 8 for CI units 



iCl 



CLS 



; Signal success on return 



; Signal failure on return 



I 
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CVTDVU — Convert device name to dev index and unit # 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



SBTTL CVTDVU 



Convert device name to dev index and unit # 



011476 010246 
011500 010346 



011502 010003 

011504 005002 

011506 071227 000050 

011512 005703 

011514 001402 

011516 162703 000036 

011522 010300 

011524 000300 



011526 070227 000050 

011532 013702 OOOOOOG 

011536 020362 OOOOOOG 

011542 001407 

011544 162702 000002 

011550 002372 



011552 012700 177777 
011556 000261 
011560 000402 



011562 050200 
011564 000241 



011566 012603 
011570 012602 
011572 000207 



CVTDVU is called to convert a RAD50 device name into the corresponding 
device index number and unit number. 

Inputs: 
RO = RAD50 device name. 

Outputs: 
C-flag cleared ==> Conversion successful. 
C-flag set ==> Unable to find device name in tables. 
RO = Device index number (low byte)* device unit number (high byte). 



CVTDVU: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



Split the unit number off of the full device name 



1*: 



MOV 


RO, R3 


CLR 


R2 


DIV 


#50, R2 


TST 


R3 


BEQ 


1* 


SUB 


#36, R3 


MOV 


R3, RO 


SUAE 


RO 



Get full device name 

Set up for divide 

Split name and unit (RO=name, Rl=unit) 

Was a unit number specified? 

Br if not 

Convert unit number to binary value 

Get unit number 

Position to high-order byte 



Look up the device name to get the device index 



>*: 



MUL 


#50, R2 


MOV 


NUMDEV. R2 


CMP 


R3, PNAME(R2) 


BE(3 


3* 


SUB 


#2, R2 


BGE 


2* 



; Now get the device name without unit number 

; Get index number of last device 

j Search for device in name table 

i Br if found it 

} Try next device 

i Loop if more to check 



Error, cannot find device name in tables 

#~1, RO 

9* 
Found the device in the tables 



MOV 
SEC 
BR 



; Set device # = unit # = 
; Signal error on return 



-1 



3*: 



9*: 



BIS 


R2, RO 


CLC 




Finished 




MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 


RETURN 





; Combine device # and unit # 
; Signal success on return 



TSINIT - 


— TSX s 


tartup initial! 


FORCED - 


— Force 


a 2-char dev n 


1 
2 








3 








4 








5 








6 








7 








S 


011574 


010346 




9 


011576 


010446 




10 


011600 


010546 




11 


011602 


011305 




12 


011604 


005004 




13 


011606 


071427 


000050 


14 


011612 


005705 




15 


011614 


001012 




16 


011616 


010405 




17 


011620 


005004 




18 


011622 


071427 


000050 


19 


011626 


005704 




20 


011630 


001404 




21 


011632 


005705 




22 


011634 


001402 




23 


011636 


062713 


000036 


24 


011642 


012605 




25 


011644 


012604 




26 


011646 


012603 




27 


011650 


000207 
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SBTTL FORCEO — Force a 2-char dev name to unit 



Inputs: R3 points to a RAD50 device name 



Outputs: If 
b lank' 



FORCEO: 



9*: 



MOV 
MOV 
MOV 
MOV 
CLR 
DIV 
TST 
BNE 
MOV 
CLR 
DIV 
TST 
BEQ 
TST 
BEQ 
ADD 
MOV 
MOV 
MOV 
RETURN 



the 3rd char of the device name pointed to by R3 is 
then it is changed to 



R3, -(SP) 

R4, -(SP) 

R5, -(SP) 

(R3),R5 

R4 

#50, R4 

R5 

9* 

R4. R5 

R4 

#50, R4 

R4 



9* 
R5 
9« 
#-^R 



0, (R3) 



MOVE CURRENT DEV NAME TO R5 

SET UP FOR DIVIDE 

SEPARATE INTO NAME AND UNIT 

WAS 3RD CHAR BLANK? 

RETURN IF NOT 

GET HIGH 2 CHARS 

SET UP FOR ANOTHER DIVIDE 

SEPARATE 1 & 2 CHARS 

WAS CHAR 1 BLANK? 

EMPTY OR INVALID DEV NAME! 

WAS CHAR 2 BLANK? 
. 1-CHAR DEV NAME SHOULD BE INVALID??? 
i FORCE TO UNIT 



(SP)+,R5 
(SP)+, R4 
(SP)+, R3 



I 
I 
I 
I 
I 
I 
f 
I 

c 

€ 

I 
i 

€ 

4 
4 
( 
i 
I 
4 
4 
i 



€ 
€ 



TSINIT - 


- TSX s 


tartup initializ 


ALOCBF - 

1 
2 
3 


— Allocate buff 


er space 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


011652 


010146 




15 








16 








17 








18 


011654 


010537 


ooooooe 


19 


011660 


062705 


OOOOOOC 


20 








21 








22 








23 


011664 


010537 


OOOOOOG 


24 


011670 


013701 


OOOOOOG 


25 


011674 


020137 


OOOOOOG 


26 


011700 


103002 




27 


011702 


013701 


OOOOOOG 


28 


011706 


070127 


OOOOOOG 


29 


011712 


060105 




30 


011714 


010537 


OOOOOOG 


31 








32 








33 








34 


011720 


012700 


OOOOOOC 


35 


011724 


003404 




36 


011726 


010537 


OOOOOOG 


37 


011732 


062705 


OOOOOOC 


38 








39 








40 








41 


011736 


013701 


OOOOOOG 


42 


011742 


001405 




43 


011744 


010537 


OOOOOOG 


44 


011750 


070127 


OOOOOOG 


45 


011754 


060105 




46 








47 








48 








49 


011756 


010537 


OOOOOOG 


50 


011762 


062705 


OOOOOOC 


51 








52 








53 








54 


011766 


010537 


OOOOOOG 


55 


011772 


013701 


OOOOOOG 


56 


011776 


062701 


OOOOOOG 


57 


012002 


070127 


OOOOOOG 
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SBTTL ALOCBF 



Allocate buffer space 



ALOCBF is called to allocate space for buffers. The allocated space 
is not initialized but simply reserved. 

Inputs: 
R5 = Start of area to allocate buffer space in. 

Outputs: 
R5 = Address beyond end of buffer area. 
CHNBAS = Address of base of I/O channel space. 
CHNEND = Address past end of I/O channel space. 

ALOCBF: MOV R1,-(SP) 

Assign space for I/O queue elements. 

MOV R5i FREIOQ ; START OF I/O QUEUE SPACE 

ADD #I0QSIZ«NUMI0Q,R5i RESERVE SPACE FOR I/O QUEUE ELEMENTS 

Assign space for shared PLAS region control blocks 

Start of area for RCB's 

Get number of RCB's wanted 

Must have one for each display uiindoui 

Br if ok 

Force one for each uiindou 

Multiply by size of each block 

Allocate space for RCB's 

Address of end of region 



13*: 



MOV 


R5, SHRRCB 


MOV 


VNGR, Rl 


CMP 


Rl/ VMXWIN 


BHIS 


13* 


MOV 


VMXWIN, Rl 


MUL 


#RC**SZ,R1 


ADD 


R1,R5 


MOV 


R5, SHRRCN 



Assign space for fork blocks 

MOV #<NUMFRK-FRKGEN>, RO J Get # fork blocks to allocate 

BLE 11* i Br if none to allocate 

MOV R5i FRKINI ; Set pointer to start of area 

ADD #«NUMFRK-FRKGEN>#FQ**SZ>i R5 i Reserve space for fork blocks 

Assign space for job monitoring control blocks 



11*: MOV VMXMON, Rl 

BEQ 10* 

MOV R5, MONFQH 

MUL #JM**SZ,R1 

ADD R1,R5 



; Any job monitoring blocks wanted? 

i Br if not 

i Start of job monitoring control blocks 

; Compute space needed for control blocks 

{Allocate the space 



Allocate space for system message buffers. 

10*: MOV R5, SNMSHD ; HEAD OF SYSTEM MESSAGE BUFFER AREA 
ADD #<NMSNMB*SB**SZ>, R5i RESERVE ROOM FOR MESSAGE BUFFERS 



Allocate space for INSTALLed program table 



MOV R5, INSTBL 

MOV VNUIP,R1 

ADD #NSIP,R1 

MUL #II**SZ,R1 



Base of table 

# slots for user installed programs 
Add # slots for system programs 
Multiply by size of each slot 



TSINIT — 
ALOCBF -- 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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012006 
012010 



012014 
012020 
012024 
012030 
012032 



012036 
012042 
012044 
012050 



012054 
012060 
012062 
012066 
012072 
012074 



012100 
012104 
012110 
012112 
012116 
012122 
012126 



012130 
012134 
012140 
012142 
012146 
012150 
012156 
012160 
012166 
012170 
012174 
012200 
012204 
012210 
012214 
012220 



060105 
010537 



010537 
012701 
070137 
060105 
010537 



005737 
001404 
010537 
062705 



013701 
001407 
070127 
010537 
060105 
010537 



012701 
020127 
101007 
010561 
062705 
062701 
000766 



012701 
020127 
101403 
020127 
103422 
026127 
001404 
026127 
001012 
010561 
010561 
062705 
010561 
062705 
062701 
020127 



0000000 



0000000 
0000000 
OOOOOOG 

0000000 



OOOOOOG 

OOOOOOG 
OOOOOOC 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



000002 
OOOOOOG 

OOOOOOG 

000020 

000002 



000002 
OOOOOOG 



ADD 
MOV 



Rl, R5 

R5, INSTBN 



jAllocate space for table 

; Pointer past end of INSTALL table 



Allocate space for device mount entries 



MOV R5, CSHDEV 

MOV #CD**SZ,R1 

MUL VMXCSH, Rl 

ADD R1,R5 

MOV R5, CSHDVN 



i Point to start of area 

/Get size of each entry 

(Multiply by number of entries 

i Reserve space for table 

; Save pointer past end of table 



Allocate space for data cache control blocks 

TST CSHALC i Is data caching manted? 

BEQ 12* i Br if not 

MOV R5, CCBHD i Head of free list area 

ADD #NUMCCB»CC**SZ/ R5 ; Allocate space for control blocks 

Allocate space for spool file control blocks 



12*: MOV NSPLFL, Rl 

BEQ 1* 

MUL #SFCBSZ,R1 

MOV R5, SFCB 

ADD R1,R5 

MOV R5. SFCBND 



Get # spool file control blocks needed 

Br if none needed 

Compute space needed by control blocks 

Base of control block area 

Allocate space for control blocks 

End of control block area 



Allocate space for a 16 byte vector for each multiplexer. 
This vector is used to map from the mux line number to the 
TSX-Plus logical line number. 



1*: MOV #2, Rl 

2*: CMP R1,#LSTMX 

BHI 5* 

MOV R5/MXLNT(R1) 

ADD #16. ,R5 

ADD #2, Rl 

BR 2* 



START WITH FIRST MUX 

HAVE WE DONE ALL MUX'S? 

BR IF YES 

SET ADDRESS OF START OF VECTOR 

RESERVE SPACE FOR VECTOR 

ADVANCE TO NEXT MUX 



Allocate buffers to hold characters for DMA transfers to DHll multiplexers 



5*: 
6*: 



OOOOOOG 

OOOOOOG OOOOOOG 3*: 

OOOOOOG OOOOOOG 

OOOOOOG S*: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 7*: 

OOOOOOG 



MOV 

CMP 

BLOS 

CMP 

BLO 

CMP 

BEQ 

CMP 

BNE 

MOV 

MOV 

ADD 

MOV 

ADD 

ADD 

CMP 



#2/Rl 

R1,#LSTPL 

3* 

Rli #FSTIOL 

7* 

LCDTYP ( R 1 ) , #CDX*DH 



Start with first line 

Is this a primary time-sharing 

Br if yes 

Is this a CL line? 

Br if not 

line connected 



line? 



8* 



Br 



LCDTYP ( R 1 > , #CDX*VH 

7* 

R5/LDHB1B<R1) 

R5, LDHB1P<R1) 

#DHBFSZ, R5 

R5, LDHB2B(R1) 

#DHBFSZ, R5 

#2, Rl 

Rl> #LSTHL 



Is 
if 
Is 
if 



this 
yes 
this 
not 



line connected 
Br 

Set address of start of buffer 
Initialize pointer into buffer 
Reserve space for buffer 
Set address of start of buffer 
Reserve space for buffer 
Get # of next line 
Have we checked all lines? 



to a DHll? 
to a DHVll? 



I 
I 
I 
I 
I 
I 
f 
I 

€ 
€ 

i 

i 
€ 
4 
€ 

4 

i 
i 
i 
I 
i 
i 



TSINIT - 


— TSX s 


tartup initializ 


ALOCBF - 


— Allocate buff 


er space 


115 


012224 


101743 




116 


012226 


005205 




117 


012230 


042705 


000001 


118 








119 








120 








121 


012234 


105737 


OOOOOOG 


122 


012240 


001415 




123 


012242 


013700 


OOOOOOG 


124 


012246 


006300 




125 


012250 


010537 


OOOOOOG 


126 


012254 


060005 




127 


012256 


010537 


OOOOOOG 


128 


012262 


060005 




129 


012264 


010537 


OOOOOOG 


130 


012270 


062705 


OOOOOOG 


131 








132 








133 








134 


012274 


010537 


OOOOOOG 


135 


012300 


062705 


001400 


136 








137 








138 








139 


012304 


010500 




140 


012306 


004737 


025104' 


141 








142 








143 








144 


012312 


012601 




145 


012314 


000207 
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BLOS 

INC 

BIC 



6« 
R5 
#1, R5 



i Br if not 

; Bound up to next word 



Allocate space for tables that keep track of space in swap file 

Is this a swapping system? 

Br if not 

Get # slots in swap file 

Allocate 2 bytes per slot 

Start of table with starting block #'s 

Allocate space 

Start of table with job #'s 

Allocate space 

Pointer to area with command packets 

Allocate space for swap command packets 

Allocate a 512-byte buffer to use to access job context blocks 



TSTB 


VSWPFL 


BEQ 


14* 


MOV 


VSWPSL, RO 


ASL 


RO 


MOV 


R5, SWPPOS 


ADD 


RO, R5 


MOV 


R5, SWPJOB 


ADD 


RO, R5 


MOV 


R5, SCPFHD 


ADD 


#NSCP#SP**SZ, R5 



14*: 



MOV 
ADD 



R5, CXTBUF 
#1400, R5 



Make sure TSX is not too big. 



MOV 


R5, RO 


CALL 


CHKMEM 


Finished 




MOV 


(SP)+,R1 


RETURN 





i Set address of buffer 

; Reserve space for the buffer 



; GET CURRENT MEMORY ADDRESS 
i CHECK FOR SPACE OVERFLOW 



TSINIT -~ TSX s 


tartup initializ 


ALCSLO — Allocate silo 


buffers 


1 
2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 012316 


010146 




13 012320 


010246 




14 






15 






16 






17 012322 


012701 


0000000 


le 






19 






20 






21 012326 


012702 


000040 


22 012332 


020127 


0000000 


23 012336 


101405 




24 012340 


020127 


ooooooe 


25 012344 


103463 




26 012346 


012702 


000020 


27 






28 






29 






30 012352 


016100 


OOOOOOG 


31 012356 


001002 




32 012360 


013700 


OOOOOOG 


33 012364 


020027 


OOOOOOG 


34 012370 


101402 




35 012372 


012700 


OOOOOOG 


36 012376 


020002 




37 012400 


103001 




38 012402 


010200 




39 012404 


010061 


OOOOOOG 


40 






41 






42 






43 012410 


010561 


OOOOOOG 


44 012414 


010561 


OOOOOOG 


45 012420 


010561 


OOOOOOG 


46 012424 


010061 


OOOOOOG 


47 012430 


060005 




48 012432 


010561 


OOOOOOG 


49 






50 






51 






52 012436 


006200 




53 012440 


162700 


000002 


54 012444 


116102 


OOOOOOG 


55 012450 


001002 




56 012452 


113702 


OOOOOOG 


57 012456 


020200 
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. SBTTL ALCSLO — Allocate silo buffers for lines 

Allocate the silo buffers that are used to hold characters as they 
are received from serial lines. 

Inputs: 
R5 = Current pointer to start of free memory. 

Outputs: 
R5 = New pointer to start of free memory. 



ALCSLO: MOV 
MOV 



Rli -(SP) 
R2, -<SP) 



Begin loop to check each line 

MOV #LSTHL»R1 i Get index to last hardware line 
Only allocate silo buffers for real lines 



Set minimum size for time-sharing lines 

Is this a primary line? 

Br if yes 

Is this a CL line? 

Br if not 

Set minimum size for CL lines 



MOV 


#32. , R2 


CMP 


R1/#LSTPL 


BLOS 


2* 


CMP 


R1,#FSTI0L 


BLO 


9* 


MOV 


#16. , R2 



Determine how much space to allocate 



8*: 



3*: 



4«: 



MOV 


LHIRBA<R1), RO 


BNE 


a* 


MOV 


VNCSLO, RO 


CMP 


RO, #MAXSLO 


BLOS 


3* 


MOV 


#MAXSLOi RO 


CMP 


RO, R2 


BHIS 


4« 


MOV 


R2, RO 


MOV 


RO, LHIRBA<R1) 



Allocate the space 

MOV R5, LHIRBB<R1) 

MOV R5, LHIRBP(Rl) 

MOV R5, LHIRBG(Rl) 

MOV RO, LHIRBS(Rl) 

ADD RO, R5 

MOV R5, LHIRBE(Rl) 



Get requested size 

Br if a size was specified 

Use default value 

Constrain size to 255 bytes 

Br if ok 

Reduce size 

Compare with acceptable minimum 

Br if ok 

Use minimum size allowed 

Set # bytes to be allocated for silo 



Set base address of buffer 

Init pointer where to store next char 

Init pointer where to get next char 

Set # free bytes in buffer 

Allocate space for buffer 

Set address beyond end of buffer 



Set up control information about when to send XON and XOFF 

ASR RO iGet 1/2 of buffer size 

SUB #2, RO ,■ Minus two characters 

MOVE LHIRBC(R1),R2 iGet specified size for XOFF point 

BNE 5* i Br if value specified 

MOVE VNCXOF, R2 i Try default 

5*: CMP R2, RO ; Is specified value ok? 



I 

i 



TSINIT - 


— TSX s 


tartup initializ 


ALCSLO - 


— Allocate silo 


buffers 


58 


012460 


101401 




59 


012462 


010002 




60 


012464 


110261 


OOOOOOG 


61 


012470 


116102 


00000 IG 


62 


012474 


001002 




63 


012476 


113702 


ooooooe 


64 


012502 


020200 




65 


012504 


101401 




66 


012506 


010002 




67 


012510 


110261 


00000 10 


68 








69 








70 








71 


012514 


162701 


000002 


72 


012520 


003302 




73 








74 








75 








76 


012522 


005205 




77 


012524 


042705 


000001 


78 


012530 


012602 




79 


012532 


012601 




SO 


012534 


000207 
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7*: 



10*: 



9*: 



BLOS 


6$ 


MOV 


RO. R2 


MOVB 


R2>LHIRBC<R1) 


MOVE 


LHIRBC+1(R1)-R2 


BNE 


7* 


MOVB 


VNCXON, R2 


CMP 


R2, RO 


BLOS 


10* 


MOV 


RO, R2 


MOVB 


R2, LHIRBC+KRl) 



Do the next line 



SUB 


#2>R1 


BGT 


1$ 


Finished 




INC 


R5 


BIC 


#1, R5 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





Br if yes 

No, use 

Set # of chars when XOFF sent 

Get specified size for XON point 

Br if a value was specified 

Try default 

Is specified value ok? 

Br if ok 

No, use size/2-2 

Set # of chars when XON sent 



; Get next line index number 
;Loop if more to do 



J Force R5 to be even 



TSINIT 
ALBFX - 

1 
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3 
4 
5 

a 

7 

8 

9 
10 
11 

12 012536 

13 012540 

14 012542 
15 

16 
17 
18 

19 012544 

20 012550 

21 012556 

22 012560 

23 012564 

24 012566 

25 012572 

26 012574 

27 012600 

28 012604 

29 012610 

30 012614 

31 012620 

32 012622 

33 012626 

34 012630 

35 012634 

36 012640 

37 012642 

38 012644 

39 012650 

40 012654 

41 012660 

42 012664 

43 012670 

44 012674 

45 012676 

46 012702 

47 012706 
48 

49 
50 

51 012710 

52 012714 

53 012716 

54 012724 

55 012732 

56 012736 

57 012742 



010146 
010246 
010346 



012701 
032761 
001047 
020127 
103403 
020127 
101441 
010561 
012702 
010261 
016100 
010061 
060002 
010261 
010003 
062703 
072327 
060302 
060300 
010261 
066100 
066102 
010261 
062700 
072027 
060005 
062701 
020127 
101720 



005737 
001451 
013737 
013737 
010537 
012701 
070137 



. SBTTL ALBFX — Allocate buffers in extended memory region 

ALBFX is called to allocate space for buffers that are not constrained 
to fit in the 40Kb region that TSX-Plus occupies. 

Inputs: 
R5 = 64-Byte address of base of free memory region. 

Outputs: 
R5 = Address above top of buffers allocated. 



ALBFX : MOV 
MOV 
MOV 



R 1 > - < SP ) 
R2, -<SP) 
R3, -<SP) 



000002 

OOOOOOe 0000000 3*: 

0000000 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

000007 
177775 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000077 

177772 

000002 
OOOOOOG 



1*: 



2*: 



Allocate character buffers for all lines 

Note: Character buffer space will be accessed by mapping through PAR 6. 

GET 1ST JOB INDEX NUMBER 

IS THIS LINE INSTALLED? 

BR IF NOT — DON'T ALLOCATE ANY BUFFER SPACE 

IS THIS A DETACHED JOB LINE? 

BR IF NOT 

DETACHED JOB LINE? 

BR IF DETACHED JOB — DON'T ALLOCATE BUFFERS 

SET PHYSICAL MEMORY PAR OFFSET FOR BUFFER 

GET VIRTUAL MEMORY ADDRESS FOR BASE OF PAR6 

INPUT BUFFER STARTS AT BASE OF PAR6 REGION 

GET # BYTES FOR INPUT BUFFER 

SET # FREE BYTES IN INPUT BUFFER 

ADVANCE VIRTUAL ADDRESS 

POINTS PAST END OF INPUT BUFFER 

Get # bytes in input buffer 

Bound up to multiple of 8 

Get # bytes needed in activation-flag buffer 

Reserve space for activation-flag buffer 

Accumulate total buffer space 

POINTS TO START OF OUTPUT BUFFER AREA 

ACCUMULATE # BYTES IN BOTH BUFFERS 

ADVANCE VIRTUAL ADDRESS COUNTER 

SAVE ADDRESS OF END OF OUTPUT BUFFER 

BOUND UP TO MULTIPLE OF 64 BYTES 

CONVERT TO # 64-BYTE BLOCKS ALLOCATED 

ADVANCE PHYSICAL MEMORY PAR ADDRESS 

ADVANCE LINE NUMBER 

HAVE WE DONE ALL LINES YET? 

BR IF MORE TO DO 

Allocate space for shared file record locking data structures 



MOV 


#2. Rl 


BIT 


#*DEAD, LSW3<R1) 


BNE 


2$ 


CMP 


R 1 , #FSTDL 


BLO 


1* 


CMP 


R 1 , #LSTDL 


BLOS 


2* 


MOV 


R5>LTTPAR<R1) 


MOV 


#VPAR6, R2 


MOV 


R2, LINBUF<R1) 


MOV 


LINSIZ<R1),R0 


MOV 


RO, LINSPC<R1) 


ADD 


RO, R2 


MOV 


R2, LINEND(Rl) 


MOV 


RO, R3 


ADD 


#7, R3 


ASH 


#-3, R3 


ADD 


R3, R2 


ADD 


R3, RO 


MOV 


R2iL0TBUF(Rl) 


ADD 


L0TSIZ(R1),R0 


ADD 


L0TSIZ<R1),R2 


MOV 


R2, L0TEND<R1) 


ADD 


#77, RO 


ASH 


#-6, RO 


ADD 


RO, R5 


ADD 


#2, Rl 


CMP 


R1/#LSTSL 


BLOS 


3* 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



TST VMXSF 

BEQ 5« 

MOV VNUMDC, NUMDCD 

MOV VMXSFC, NUMCDB 

MOV R5, LOKMEM 

MOV #FF**SZ,R1 

MUL VMXSF, Rl 



Shared file support wanted? 

Br if not 

Set number of data cache blocks 

Set number of free CDB's 

Set phys address of base of area 

Size of an FDB 

Times number of FDB's 



TSINIT - 
ALBFX - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 



— TSX startup initializ MACRO V05. 05 

— Allocate buffers in extended memory 



012746 
012752 
012756 
012760 
012764 
012770 
012772 
012776 
013002 
013004 
013010 
013014 
013020 
013022 
013026 
013032 
013036 



013040 
013044 
013046 
013052 
013054 
013060 
013064 
013070 
013072 
013076 



013100 
013104 
013106 
013110 
013114 
013120 
013124 
013130 



013132 
013134 
013136 
013140 



062701 
013703 
006303 
062703 
070337 
060301 
012703 
070337 
060301 
062701 
072127 
042701 
060105 
010537 
013701 
070127 
060105 



105737 
001415 
013701 
001412 
010561 
1 1 3703 
072327 
060305 
016101 
001366 



013701 
001412 
006201 
010137 
010537 
062701 
072127 
060105 



012603 
012602 
012601 
000207 



ooooooc 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000100 
177772 
176000 

OOOOOOG 
OOOOOOG 
000010 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000003 

OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
000037 
177773 



Friday 


20-Jan-89 1 1 : 30 Pa< 


region 




ADD 


#<NLINES*FW*$SZ>, 


MOV 


VMLBLK, R3 ; 


ASL 


R3 


ADD 


#FC*LBN, R3 


MUL 


VMXSFC, R3 i 


ADD 


R3, Rl i 


MOV 


#DC«*SZ. R3 ; 


MUL 


VNUMDC, R3 ; 


ADD 


R3, Rl ; 


ADD 


#64. ,R1 i 


ASH 


#-6, Rl } 


BIC 


#176000iRl i 


ADD 


R1,R5 


MOV 


R5, LOKCSH / 


MOV 


VNUMDCRl i 


MUL 


#8. .Rl ' 


ADD 


R1,R5 i 



40-1 



Rl iSpa 
Ma X bio 
Two byt 
Add bas 
Times n 
Accumul 
Size of 
Times n 
Reserve 
Bound u 
Convert 
Clear s 
Reserve 
Save po 
# share 
8 64-by 
Reserve 



ce needed for uait blocks 

cks a CDB may hold locked 

es per entry 

e size of a CDB 

umber of shared file channels 

ate space needed 

a data cache descriptor 
umber of data cache entries 

space for data cache descriptors 
p to 64 byte unit 

to # 64 byte units 
ign extension 

space for data structures 
inter to start of cache buffer area 
d-file data cache blocks uanted 
te blocks each (512 bytes each) 

space for data cache buffers 



5*: 



6*: 



7$: 



Allocate space for mapped I/O buffers 

Are any mapped I/O buffers needed? 

Br if not 

Point to 1st mapped I/O control block 

Br if no more buffers needed 

Set address of base of buffer 

Get # blocks for buffer 

Convert to # 64-byte pages 

Allocate space for buffer 

Get address of next control block 

Loop if more to allocate 

Allocate space for performance monitor data buffer if it is utanted. 

DID USER GEN IN PERFORMANCE MONITOR FEATURE? 

BR IF NOT 

CONVERT BYTES TO WORDS 

SET INTO CELL IN TSEXEC 

SET BASE ADDRESS OF PM BUFFER 

BOUND SIZE UP TO 64-BYTE MULTIPLE 

CONVERT WORDS TO # 64-BYTE BLOCKS 

ADVANCE FREE MEMORY POINTER 



TSTB 


MIOFLG 


BEG 


7* 


MOV 


MIOBHD, Rl 


BEQ 


7* 


MOV 


R5>MI*SBP(R1) 


MOVE 


VMiaSZ,R3 


ASH 


#3, R3 


ADD 


R3, R5 


MOV 


MI*LNK(Ri),Rl 


BNE 


6$ 



9*: 



MOV 


VPMSIZiRl 


BEQ 


9* 


ASR 


Rl 


MOV 


R1,PMCELS 


MOV 


R5, PMPAR 


ADD 


#37, Rl 


ASH 


#-5, Rl 


ADD 


Rl, R5 


Finished 




MOV 


(SP)+,R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





TSINIT ■ 
OPNKMN - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Open channel to TSKMON 



013142 010246 



013144 
013164 



103517 



013166 013702 000152' 
013172 

013226 016200 000050 

013232 062700 000003 

013236 042700 000001 

013242 010037 OOOOOOG 



013246 162700 

013252 010037 

013256 062700 

013262 000241 

013264 006000 

013266 000300 

013270 042700 

013274 063700 OOOOOOG 

013300 010037 0000000 



OOOOOOG 
OOOOOOG 
000777 



177400 



SBTTL OPNKMN 



Open channel to TSKMON 



013304 016237 000042 OOOOOOG 
013312 016237 000040 OOOOOOG 



013320 016237 000300 OOOOOOG 



013326 012700 OOOOOOG 
013332 013702 000072' 



OPNKMN is called to open an I/O channel to TSKMON SAV file and to 
set up information about TSKMON. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
KMNCHN = Saved status of channel to use to access TSKMON SAV file. 
KMNTOP = Top of memory address for TSKMON. 
KMNHI = Top address of TSKMON - KMNBAS. 

KMNPGS = Number of 256-ujord memory pages needed for TSKMON & context area 
KMNSTK = Address of stack to use while TSKMON running. 
KMNSTR = Starting address of TSKMON. 

OPNKMN: MOV R2, -(SP) 

Lookup TSKMON file. 

.LOOKUP #AREA, #1,#KMNNAM ; TRY TO FILE KMON SAV FILE 
BCS 9* j BR IF NOT THERE 

Read block of save file and extract some information. 

MOV WRKBUF, R2 ; Point to work buffer 
. READW #AREAi#l,R2, #256. -#0 ; READ BLOCK OF SAV FILE 
Determine size of kmon 

GET TOP ADDRESS OF KMON 

BOUND UP TO NEXT WORD 

FORCE EVEN 

lemory pages needed uhile kmon running. 
BASE ADDRESS OF KMON 
TOP OF TSKMON - KMNBAS 
BOUND UP TO PAGE SIZE 

i CVT TO # WORDS 
;CVT TO # PAGES 

; # PAGES NEEDED FOR JOB CONTEXT AREA 
i# 256-ujd pages needed for kmon + context area 
Determine Kmon stack pointer. 

MOV 42(R2), KMNSTK j INITIAL STACK POINTER FOR KMON 
Determine Kmon starting address. 

MOV 40 (R2), KMNSTR ; STARTING ADDRESS 

Set up demo-system time limit 

(If this is a demo version of TSX-Plus/ the number of minutes the system 
is to run before it crashes is stored in location 300 of TSKMON) 

MOV 300(R2),DTLX ; SET DEMO TIME-LIMIT 

Now save status of channel so u>e can do a reopen when we need kmon. 



MOV 


50<R2),R0 


ADD 


#3, RO 


BIC 


#1,R0 


MOV 


RO. KMNTOP 


mine 


number of 256 


SUB 


#KMNBAS, RO 


MOV 


RO, KMNHI 


ADD 


#511. ,R0 


CLC 




ROR 


RO 


SWAB 


RO 


BIC 


#•'^0377, RO 


ADD 


CXTPAG, RO 


MOV 


RO, KMNPGS 



MOV #KMNCHN, RO 
MOV KMNNAM, R2 



; GET KMON CHANNEL SAVE AREA 
;GET KMON DEVICE NAME 



I 
I 
t 
I 
I 
I 
I 

i 
i 
c 
I 
i 
« 

4 

< 
4 
i 

4 
i 

< 

i 



TSINIT - 


— TSX s 


tartup initializ 


OPNKMN - 


— Open 


channel 


to TSKMO 


58 


013336 


004737 


024410' 


59 








60 








61 








62 


013342 






63 


013362 


103410 




64 


013364 


012700 


OOOOOOG 


65 


013370 


013702 


000102' 


66 


013374 


004737 


024410' 


67 








68 








69 








70 


013400 


012602 




71 


013402 


000207 




72 








73 








74 








75 


013404 






76 


013412 






77 


013420 


000137 


004134' 


78 








79 








80 








81 


013424 






82 


013432 






83 


013440 


000137 


004134' 
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CALL SETCHN ; SAVE CHANNEL STATUS 

Lookup CCL. SAV and save channel status for it. 

LOOKUP SY: CCL. SAV 
BR IF CAN'T FIND CCL 
CHANNEL SAVE AREA 
DEVICE NAME 
SAVE CHANNEL STATUS 



10* 



Error: We could not find SY: CCL. SAV 



. LOOKUP 


#AREA. #1,#CCLNAM 


BCS 


8* 


MOV 


#CCLSAV, RO 


MOV 


CCLNAM, R2 


CALL 


SETCHN 


Finished 




MOV 


(SP)+, R2 


RETURN 





8*: .PRINT #TSXHD 
.PRINT #NOCCL 
JMP INISTP 



; PRINT ERROR MESSAGE 
i ABORT INITIALIZATION 



Error: We could not locate TSKMDN SAV file. 

9«: .PRINT #TSXHD i PRINT ERROR MESSAGE 

.PRINT #NOKMON 
JMP INISTP i ABORT INITIALIZATION 



TSINIT — TSX startup initializ MACRO V05. 05 
CLINIT — Initialize CL handler 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 013^44 

12 013446 

13 013450 
14 

15 
16 

17 013452 

18 013454 
19 

20 
21 

23 013460 

24 013464 

25 013466 

26 013474 

27 013500 

28 013504 

29 013506 

30 013512 

31 013514 

32 013520 
33 

34 
35 

36 013522 

37 013526 

38 013532 

39 013536 

40 013542 

41 013544 

42 013546 

43 013552 

44 013556 

45 013562 

46 013564 

47 013570 
48 

49 
50 

51 013572 

52 013576 

53 013602 

54 013606 
55 

56 
57 



010146 
010246 
010346 



005003 
012701 



016102 
001416 
012762 
010162 
005762 
001006 
005762 
001003 
005061 
000472 



010561 
010561 
010561 
012700 
005702 
001402 
016200 
010061 
010061 
060005 
010561 
060003 



010561 
005061 
062705 
062703 



. SBTTL CLINIT — Initialize CL handler 
Perform initialization for CL (Communication Line) handler 



Inputs: 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory area. 



OOOOOOC 



CLINIT: MOV 


Rl, -<SP) 


MOV 


R2, -(SP) 


MOV 


R3, -<SP) 


i Initialize 


tables for e 


CLR 


R3 


MOV 


#2#<CLT0TL 



each CL unit 

; Accumulate ring buffer sizes in R3 
•l>iRliGet index # of last CL unit 



See if this CL unit is connected to hardware or is free to be 
connected later to a time-sharing line. 



OOOOOOG 

0000000 OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



1$: 



MOV CL*LIX(R1),R2 

BEQ 5* 

MOV #*SXON, LSW10<R2) 

MOV R1,LCLUNT(R2) 

TST RSR(R2) 

BNE 5* 

TST LMXNUM<R2) 

BNE 5* 

CLR CL*EPS(R1> 

BR 4* 



1 ine 

RSR addr? 



Is this CL unit associated with a line? 

Br if not 

Send XON when 

Associate the 

Does this 

Br if yes 

Is this a mux line? 

Br if yes 

Say no endstring buffer 

Line is not genned in 



we start the line 
CL unit with this 
unit have a specified 



Allocate and set up pointers for the output ring buffers 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



5$: 



6$: 



MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
MOV 
MOV 
MOV 
ADD 
MOV 
ADD 



R5, CL*0RB(R1) 


Star 


R5* CL*0RP<R1) 


Inpu 


R5, CL«0RG(R1) 


Next 


#CL0RSZ, RO 


Get 


R2 


Is t 


6* 


Br i 


L0TSIZ(R2),R0 


Get 


RO, CL*0RA<R1) 


Set 


RO, CL*0RS(R1) 


Aval 


RO, R5 


Poin 


R5, CL*0RE<R1) 


Addr 


RO, R3 


Accu 



't of output ring buffer 

It character pointer 

available character pointer 
default output ring buffer size 

;his CL unit connected to a line? 

,f not 

size of output ring buffer 
size of output ring buffer 
lable space in ring buffer 

it beyond end of ring buffer 

-ess past end of ring buffer 

jmulate size of output ring buffers 



Allocate space for end-of-file string buffer 



OOOOOOG 
OOOOOOG 
00000 IG 
00000 IG 



MOV R5, CL*EPS(R1) 

CLR CL*EPP(R1> 

ADD #<CLEOFS+ 1 >, R 5 

ADD #<CLEDFS+1>, R3 



iSet pointer to end-of-file string buffer 
; No string to print yet 
i Reserve space for buffer 
^Accumulate buffer space 



Initialize end-of-file form-feed count 



i 

4 
i 
4 
i 
f 
i 



TSINIT 
CLINIT - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



TSX startup initializ MACRO V05. 05 
- Initialize CL handler 
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013612 005061 OOOOOOG 



013616 
013622 
013624 
013626 
013632 
013636 
013640 
013644 
013650 
013652 
013656 
013662 
013664 
013670 



013706 
013712 



013714 
013722 
013726 
013732 
013740 
013746 
013754 
013760 
013766 
013772 
013776 
014002 
014004 



014010 
014016 
014020 
014026 
014032 
014036 
014044 



012700 
005702 
001421 
016202 
032702 
001402 
052700 
032702 
001402 
052700 
032702 
001402 
052700 
010061 



ooooooe 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



CLR CL*EPN<R1> 
Initialize option word 



MOV #<CO*DEF>, RO 

TST R2 

BEQ 7* 

MOV ILSW2<R2>,R2 

BIT #*TAB,R2 

BEQ 2* 

BIS #CO*TAB,RO 

2$: BIT #*FORM, R2 

BEQ 3* 

BIS #CO*FF, RO 

3*: BIT #$SBIT, R2 

BEQ 7* 

BIS #C0*8BT, RO 

7*: MOV ROi CL«0PT(R1) 



In it ENDPAGE=0 



Get default option flags 

Is this CL unit connected with a line? 

Br if not 

Get line options 

Does hardware support tabs? 

Br if not 

Set hardware-tab flag 

Does hardware support form feeds? 

Br if not 

Set hardware-form-feed flag 

Does hardware want 8 bit support? 

Br if not 

Enable 8 bit support for CL line 

Set options for this CL line 



013674 012761 000102 OOOOOOG 



013702 005061 OOOOOOG 



Initialize page length 

MOV #66. , CL«LEN<R1) ; Say page length = 66 lines 
Initialize status flags 



CLR CL*STA(R1) 
Do next line 



162701 
002262 



062737 
013701 
010137 
012761 
012761 
012761 
005061 
012761 
062703 
062703 
010361 
005205 
042705 



022727 
101430 
062737 
013701 
010137 
012761 
012761 



000002 



4*: 



SUB 
BGE 



#2, Ri 
1* 



i Initialize status flags 



» Get index # of next unit 

i Loop if more units to initialize 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



000002 

OOOOOOG 

OOOOOOG 

012240 

OOOOOOG 

ooooooe 

OOOOOOG 
000006G 
OOOOOOG 

ooooooe 

OOOOOOG 
000001 



OOOOOOG 000010 

000002 OOOOOOG 

OOOOOOG 

OOOOOOG 

013630 OOOOOOG 

OOOOOOG OOOOOOG 



Make a device table entry for "CL" device 

ADD #2/ NUMDEV i One more device 

MOV NUMDEV, Rl i Get device table index 

MOV Rl/CLDEVX » Remember index number of CL device 

MOV #R50CL, PNAME<R1) i Set device name <"CL") 

MOV #CLSTS, DVSTAT<R1) i Set dev status flags 

MOV #<DX*NCA!DX*NMT!DX*NRD>, DVFLAG<R1) i Device info flags 

CLR DEVSIZ(Rl) ; Clear device size 

MOV #CLHEAD+6, HANENT(Rl) i Set handler entry point (4th word) 

ADD #CLSIZE* R3 i Get size of handler 

ADD #«CLT0TL*46. >+<NI0L#32. », R3 ;Add size of tables in TSGEN 

MOV R3/ HANSIZ<R1) ; Set size of handler 

INC R5 iMake sure free-memory pointer is even 

BIC #1,R5 

Make a device table entry for CI if there are more than 8 CL units 



CMP 

BLOS 

ADD 

MOV 

MOV 

MOV 

MOV 



#CLTOTL. #8. 

9* 

#2> NUMDEV 

NUMDEV, Rl 

Rl, CIDEVX 



i Are there more than 8 CL units? 

i Br if not — Don't need CI 

; One more device 

; Get device table index 

j Remember index number of CL device 



#R50Cli PNAME(Rl) ; Set device name <"C1") 
#CLSTS, DVSTAT<R1) ; Set dev status flags 



I 
i 
I 
I 
I 

i 
I 
I 
I 

i 
( 
€ 
€ 

( 
I 
i 
< 

4 
< 

I 
I 



TSINIT - 
CLINIT - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
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— Initialize CL handler 
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014052 
014060 
014064 
014072 



014100 
014102 
014104 

014106 



012761 
005061 
012761 
012761 



012603 
012602 
012601 
000207 



OOOOOOC 
OOOOOOG 
0000060 
000004 



OOOOOOG 

OOOOOOG 
OOOOOOG 



MOV 
CLR 
MOV 
MOV 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



#<DX*NC A ! DX*NMT ! DX*NRD>, DVFLAG ( R 1 ) 
DEVSIZ(Rl) iClear device size 
#CLHEAD+6, HANENKRl) ; Set handler entry point 
#4. ,HANSIZ<R1> iSet size of handler 



(SP)+. R3 
<SP)+>R2 
(SP)+, Rl 



Device info flags 

<4th uord) 



I 

I 

I 

I 

f 

I 

I 

I 

I 

€ 

i 
i 

€ 

I 
I 
i 
i 
i 
« 
I 



TSINIT - 
INDINI - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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014110 
014112 



014120 
014126 
014146 
014150 



014154 
014160 
014214 
014220 
014256 
014262 
014264 
014266 
014270 
014272 
014276 
014300 
014302 
014306 
014310 
014314 
014316 
014322 



014326 
014332 
014336 



014342 
014346 



. SBTTL INDINI — Initialize IND program 

Perform initialization for IND program. 

Outputs: 

If IND is available* the following information is set up: 

INDSAV = 5 word . SAVESTATUS block for SY: IND. SAV file 

INDDBL = Lowest block # within IND. SAV file of data overlay segment. 

INDDBS = Number of blocks used for data overlay segment. 

INDTSV = 5 word . SAVESTATUS block for SY: TSX IND. TSX file 



010246 
010346 



INDINI: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



014114 005037 0000000 



)2 
000137 



013703 

016302 

162702 
060302 
011203 
020312 
001003 
O62702 
000773 
005722 
012237 
011202 
062702 
000302 
042702 
010237 



012700 
013702 
004737 



013703 
070327 



013737 OOOOOOG 000220 



014602' 

000152' 

000064 

001000 



000006 

ooooooe 

000377 
177400 

ooooooe 



OOOOOOG 
000220 ' 
024410' 



OOOOOOG 

ooooooe 



Determine if IND support is wanted 

CLR INDSAV / ASSUME IND SUPPORT NOT WANTED 

Lookup SY: IND. SAV file 

MOV SYNAME, INDNAM i LOOK UP IND ON BOOT DEVICE 

.LOOKUP #AREA>#1, # INDNAM ; TRY TO FIND SY: IND. SAV 

BCC 4* i BR IF FOUND IND 

JMP 9* ; IF CAN'T FIND IND, THEN NO IND SUPPORT 

Set up information about IND overlay data segment 

4*: MOV WRKBUF, R3 i Get pointer to work buffer 

, #0 i READ IN BLOCK OF SAV FILE 

GET POINTER TO OVERLAY TABLE 

, #1 i READ IN BLOCK 1 WITH OVERLAY TABLE 

GET ADDRESS OF OVERLAY TABLE REL TO BLOCK 1 

ADD BASE ADDRESS WHERE BLOCK 1 DATA IS 

Get virtual address of segment 

5*: CMP R3, (R2> ; Search for 1st segment with different addr 

Br if found it (this is the data segment) 
Point to overlay table entry for next seg 

6*: TST (R2)+ i Point to word with block # if SAV file 

GET BLOCK # IN SAV FILE OF DATA OVERLAY 
GET # OF WORDS IN OVERLAY SEGMENT 
ROUND UP TO NEXT BLOCK 
CONVERT # WORDS TO # BLOCKS 

SAVE # BLOCKS USED FOR DATA OVERLAY 

Do .SAVESTATUS on channel opened to IND. SAV file so that we 
can do a reopen to access it from KMON. 

GET ADDRESS OF SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE STATUS 

Determine how much space is needed for SY: TSX IND. TSX swap file 



MOV 


WRKBUF, R3 i 


. READW 


#AREA, #1,R3. #256. 


MOV 


64(R3),R2 i 


. READW 


#AREA, #1, R3, #256. 


SUB 


#1000, R2 i 


ADD 


R3, R2 


MOV 


(R2),R3 ; 


CMP 


R3, (R2) ; 


BNE 


6$ i 


ADD 


#6. R2 


BR 


5* 


TST 


(R2)+ i 


MOV 


(R2)+, INDDBL ; 


MOV 


(R2),R2 i 


ADD 


#255. , R2 i 


SWAB 


R2 


BIC 


#'^C<377>, R2 


MOV 


R2, INDDBS ; 



MOV 


#INDSAV, RO 


MOV 


INDNAM, R2 


CALL 


SETCHN 



MOV INDDBS, R3 
MUL #<LSTSL/2>, R3 



i GET # BLOCKS NEEDED PER JOB 
i TIMES TOTAL NUMBER OF JOBS 



TSINIT — TSX startup initializ 


INDINI — Initialize IND progra 


58 






59 






60 






61 






62 014352 


013700 


OOOOOOG 


63 014356 


004737 


024770 ' 


64 014362 


103522 




65 






66 






67 






68 014364 






69 014404 


103415 




70 014406 


020003 




71 014410 


001462 




72 014412 






73 014420 






74 






75 






76 






77 






78 014440 






79 014464 


103451 




SO 014466 


010302 




81 014470 


005302 




82 014472 






83 014530 






84 014536 






85 






86 






87 






88 014556 


012700 


OOOOOOG 


89 014562 


013702 


OOOOOOG 


90 014566 


004737 


024410' 


91 014572 






92 






93 






94 






95 014602 


012603 




96 014604 


012602 




97 014606 


000207 




98 






99 






100 






101 014610 






102 014616 






103 014624 


004737 


010142' 


104 






105 






106 






107 014630 


010001 




108 014632 






109 014640 






110 014646 


004737 


010170' 
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Load Rt-11 device handler for ind suiap file. 



MOV 

CALL 

BCS 



INDFIL, RO 

RTFTCH 

11* 



; Get name of the device 

/Try to fetch the RT-11 device handier 



i Br if error on handler fetch 
See if TSXIND file already exists 

.LOOKUP #AREA, #1,#INDFIL ; DOES SY: TSXIND. TSX FILE EXIST NOW? 



BCS 1* 

CMP RO, R3 

BEQ 2« 

. PURGE #1 

. DELETE #AREA, #1, #INDFIL 

File does not now exist 
Create new file 



BR IF NOT 

IS IT OF THE CORRECT SIZE? 

BR IF YES 

FILE IS OF WRONG SIZE 

DELETE OLD FILE 



1*: 



ENTER #AREA, #1, #INDFIL, R3 ; CREATE NEW TSXIND FILE 



BCS 10* i BR IF ERROR ON CREATE 

MOV R3, R2 ; # BLOCKS IN FILE 

DEC R2 i GET # OF LAST BLOCK IN FILE 

. WRITW #AREA, #1, WRKBUF, #256. , R2 i WRITE TO LAST BLOCK OF FILE 

.CLOSE #1 ;NOW CLOSE THE FILE 

.LOOKUP #AREA, #1>#INDFIL ; REOPEN TSXIND FILE WITH LOOKUP 

Do . SAVESTATUS for SY: TSXIND. TSX file 



2*: MOV #INOTSV, RO 
MOV INDFIL, R2 
CALL SETCHN 
. RELEAS #INDFIL 



POINT TO SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE INFO 
Release device handler 



Finished 



9*: 



MOV <SP)+, R3 
MOV (SP)+, R2 
RETURN 



Error occurred while opening SY: TSXIND. TSX file 

10*: .PRINT #TSXHD ; Print error message 

.PRINT #INDOPN 
CALL SPNEED ; Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #INDOPN 

CALL BADDEV 



; Save device name 

; Print error message 

iPrint invalid device specification 



TSINIT — TSX startup initializ MACRO 
UCLINI — Initialize TSXUCL data file 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 014652 010246 

11 014654 010346 
12 
13 
14 

15 014656 105737 OOOOOOG 

16 014662 001536 

17 014664 013702 OOOOOOG 
IS 014670 001533 
19 
20 
21 

22 014672 012700 0000000 

23 014676 062700 OOOOOOG 

24 014702 070200 

25 014704 062703 000777G 

26 014710 005502 

27 014712 071227 001000 

28 014716 010237 OOOOOOG 
29 
30 
31 

32 014722 070227 OOOOOOG 
33 
34 
35 

36 014726 013700 OOOOOOG 

37 014732 004737 024770' 

38 014736 103523 
39 
40 
41 
42 

43 014740 

44 014760 103415 

45 014762 020003 

46 014764 001446 

47 014766 

48 014774 
49 
50 
51 

52 015014 1«: 

53 015040 103452 

54 015042 005303 

55 015044 

56 i 

57 ; 



. SBTTL UCLINI — Initialize TSXUCL data file 



UCLINI is called to initialize the TSXUCL data file which is used 
to store user-defined commands. 



Outputs: 
TSXUCL data file is initialized. 
UCLBLK = Number of blocks in data file for each job. 



UCLINI: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Determine if TSXUCL data file is needed 



Is TSXUCL being used at all? 
Br if not 

Get maximum number of commands 
Br if none allowed 



Determine number of blocks needed in data file for each job 



TSTB 


VU*CL 


BEQ 


9* 


MOV 


VUCLMC, R2 


BEQ 


9* 



MOV #UK**SZ. RO 

ADD #US«*SZ. RO 

MUL RO, R2 

ADD #UC**SZ+511. ,R3 

ADC R2 

DIV #512. ,R2 

MOV R2, UCLBLK 



Size of each keyword descriptor 

Size of each command string descriptor 

Compute total # bytes for keywords+commands 

Add space for control information & round up 

Propogate carry 

Convert to # of blocks needed 

Save number of blocks needed per job 



Multiply by number of jobs to get total file size 

MUL #<LSTSL/2>, R2 J Times total number of jobs 
Load Rt-11 device handler for ind swap file. 



MOV 

CALL 

BCS 



UCLDAT, RO 

RTFTCH 

11* 



; Get name of the device 

; Try to fetch the RT-11 device handler 

i Br if error on handler fetch 



The total required file size is now in R3. 
See if the file already exists. 

LOOKUP #AREA, #1, ttUCLDAT ; See if the file exists now 
BCS 1* ; Br if file does not exist 

CMP RO, R3 i Is existing file of correct size? 

BEQ 2* i Br if yes — use the old file 

PURGE #1 ; Purge the channel 

.DELETE #AREA,#l,#UCLDATi Delete the old file 

Create a new data file 

.ENTER #AREA, #1, #UCLDAT, R3 i Create new data file 

BCS 10$ i Br if error creating the file 

DEC R3 ;Get # of last block in the file 

.WRITW #AREA, #1, WRKBUF, #256. , R3 i Write to last block of file 

Translate possible logical device name to physical name and close 



TSINIT • 
UCLINI - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
oo 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
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015102 
015122 
015126 
015132 
015136 
015142 
015150 



015160 
015162 
015164 



015166 
015174 
015202 



015206 
015210 
015216 
015224 



013702 
063702 
062702 
010237 



000032 ' 
000030 ' 
000036 
OOOOOOG 



012603 
012602 
000207 



004737 01014J 



010001 



004737 010170' 



(Physical name is needed for TSXUCL program. ) 



2$: 



. CSTAT #AREA, #1, #NFSBLK 

MOV <NFSBLK+12>, R2 

ADD <NFSBLK+10>, R2 

ADD #'^R 0, R2 

MOV R2, UCLDAT 

. CLOSE #1 

. RELEAS #UCLDAT 



i GET CHANNEL STATUS INFORMATION 
FETCH DEVICE NAME IN RAD50 
ADD IN DEVICE UNIT NUMBER 
CONVERT UNIT NUMBER TO RAD50 
SET PHYSICAL NAME BACK INTO TSGEN CELL 
Close the file 
Release device handler 



Finished 



9*: 



MOV 
MOV 
RETURN 



<SP)+, R3 
(SP)+, R2 



Error creating the data file 

10«: .PRINT #TSXHD ; Print error message 

.PRINT #UCLOPN 
CALL SPNEED ; Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #UCLOPN 

CALL BADDEV 



; Save device name 
i Print error message 

iPrint invalid device specification 



TSINIT 
MEMINI 



— TSX startup initializ MACRO V05. 05 

— Initialize memory management 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



5230 
5232 
5234 
5236 
5240 



5242 
5246 
5252 
5256 
5262 
5266 
5270 
5272 
5274 
5300 
5304 
5310 



01531; 



01 
01 
01 
01 
01 
01 



5320 
5322 
5324 
5326 
5330 



010146 
010246 
010346 
010446 
010546 



012700 
012701 
012702 
012703 
012704 
005005 
010520 
010521 
012722 
012723 
062705 
077411 



SBTTL MEMINI 



Initialize memory management 



Initialize memory management registers for a 1-to-l mapping. 
But leave memory management turned off. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000010 



077406 
077406 
000200 



MEMINI: 


MOV 


R1,-(SP) 






MOV 


R2, -(SP) 






MOV 


R3, -(SP) 






MOV 


R4, -(SP) 






MOV 


R5, -(SP) 




i Init 


ialize 


all pages for a 1- 


to-1 mapping. 


12«: 


MOV 


#KPARO, RO 


Kernel mode PAR 




MOV 


#UPARO, Rl 


User mode PAR 




MOV 


#KPDRO, R2 


Kernel mode PDR 




MOV 


#UPDRO, R3 


User mode PDR 




MOV 


#8. . R4 


Initialize 8 pages 




CLR 


R5 


Set initial PAR value 


2«: 


MOV 


R5, (R0) + 


Set kernel PAR 




MOV 


R5, (Rl) + 


Set user PAR value 




MOV 


#077406, (R2) + 


Set kernel PDR 




MOV 


#077406, (R3) + 


Set user PDR value 




ADD 


#200, R5 


Advance block number 




SOB 


R4,2* 


Init all pages 



012737 OOOOOOG OOOOOOG 



012605 
012604 
012603 
012602 
012601 
000207 



Map kernel mode I/O page (160000) to 17760000. 

MOV #IOPAGE, e#KPAR7 i Map I/O page 
Finished 



MOV 


(SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


(SP)+, 


R3 


MOV 


( SP ) +, 


R2 


MOV 


(SP)+, 


Rl 


RETURN 







i 
I 
I 
f 
I 
< 

4 
i 
€ 
i 
i 
i 
4 
I 
I 

i 



TSINIT - 
MEMTST - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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015334 
015336 
015340 
015342 
015344 
015346 



000110 

010146 
010246 
010346 
010446 
010546 
013746 



000004 



015352 
015360 
015362 
015364 
015370 
015372 



012737 
000240 
000240 
005737 
103411 
105237 



015606' 000004 



0000000 



OOOOOOG 



015376 
015400 
015402 
015406 
015410 



000240 
000240 
005737 
103402 
105237 



OOOOOOG 



ooooooe 



015414 

015414 
015420 
015422 



105737 
001410 
005005 



ooooooe 



. SBTTL MEMTST — Set up information about available memory space 

MEMTST is called to set up information related to memory management. 
MEMTST performs the following functions: 

1. Determine hou much memory is installed on machine. 

2. Load Kernel mode mapping registers. 

Inputs: 
R5 = top of memory currently allocated for TSX and low memory buffers. 

Outputs: 
PHYMEM = 64-byte block # above top of physical memory. 
FMEMHI = 64-byte block # above top of memory available for system. 
Kernel mode mapping registers loaded. 
Memory management is left turned off. 



Offset word to test for memory wrap - choose a location which will not 
effect RT-11 or TSX-Plus initialization. 



TSTWRD =110 

MEMTST: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



; Offset word to test for memory wrap 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 
@#4, -<SP) 



» Save illegal mem. ref. trap vector 



MOV 


#TRCSET, 


NOP 




NOP 




TST 


e#SR3MMR 


DCS 


22* 


INCB 


SR3FLG 



Determine if this machine has a memory management register # 3. 
If it does not* then machine cannot possibly have more than 256Kb. 

Catch trap 

Clean out 11/73 pipeline 

Before attempting trap 

Try to access status register 3 

Br if MMU 3 status register is non-existent 

No trap. We must have SR3 

Now determine if it implements D-space (11/23 11/24 do not) 
If there was no SR3MMR* then it certainly doesn't! 

i Clean out the pipeline again? 

i It there a user D-space PDRO? 

i Br if not 

i No trap. Must implement D-space 

If we are running on a Prof essional> there is a register that tells 
us how much memory is installed on the machine. 



NOP 




NOP 




TST 


@#UDDRO 


BCS 


22* 


INCB 


IDSFLG 



. IF 



NE, PROASM 
TSTB PROFLG 
BEQ 26* 
CLR R5 



;Are we running on a Professional? 

i Br if not 

i Load byte without sign extension 



4 
i 
I 

i 



TSINIT 
MEMTST - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



TSX 

- Set 

015424 
015430 
015434 
015440 
015442 



startup initializ MACRO V05. 05 Friday 20~Jan-89 11:30 Page 46-1 
up information about available memory space 



153705 
072527 
162705 
000400 



173050 
000011 
000010 



015442 
015446 
015452 
015454 
015460 
015464 



010537 
020537 
101402 
013705 
010537 
010537 



OOOOQOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000134' 





BISB 


©#173050, R5 




ASH 


#9. , R5 




SUB 


#10, R5 




BR 


7* 


26*: 






. ENDC 


;NE, 


PROASM 


. IF 


NE> <PR0ASM-1> 



;Get 32Kb top of system RAM boundary 

; Convert to # 64 byte blocks 

iDon't use the last 512 bytes of memory 



;As5emble if could be on a PDP-11 



We are not running on a Professional. 

Test each page above TSX to see where the top of memory is. 



MOV 

CLR 

BIS 

TSTB 

BEQ 

BIS 



#RTNKM, @#20 



i Use lOT instruction to get out of user mode 



#MMENBL, @#SROMMRi Enable memory management 

SR3FLG i Does maching have mem management reg # 3? 

4* ; Br if non-existent 

#EMMAP, @#SR3MMR ; Enable 22~bit extended memory 



Map user page 7 to each successive 256-u>ord block and attempt to access. 



4«: MOV #1024. , R5 

5*: MOV R5, @#UPAR7 

BIS #UMODE, e#PSW 

TST @# 160000 



i Start checking at 64Kb 

i Map user page 7 to page to be tested 

i Go into user mode 

i Can tue access the page? 



Use lOT to get back into kernel mode. 



lOT 
BCS 
ADD 
CMP 
BLO 



6* 

#10, R5 

R5, #177600 

5* 



i Return to kernel mode 

; Br if memory is non-existent 

; Go try next page 

; Don't enter I/O page 



Check for potential memory wrap (on 18-bit 256K byte computers). 

6*: CMP R5, #10000 i Is physical memory above 256K bytes 

BLOS 7* iBr if below 256K bytes 

CLR @#TSTWRD ; Clear physical location 

MOV #10000, e#UPAR7 i Map to 256K byte boundary 

BIS #UMODE, e#PSW ;Go into user mode 

MOV #-l,g#160000+TSTWRD i Store -1 at 256K physical location 
lOT ; Return to kernel mode 

TST @#TSTWRD ; Test physical location 

BEQ 7* iBr if physical location is clear 

MOV #10000, R5 ; Constrain memory to 256K byte total 

. ENDC ; NE, <PR0ASM-1> 

Reached end of available memory. 



7*: 



8*: 



MOV 


R5, PHYMEM 


CMP 


R5, MAPSIZ 


BLOS 


8* 


MOV 


MAPSIZ, R5 


MOV 


R5, *MEMSZ 


MOV 


R5, FMEMHI 



i set physical memory size 

i Constrain kernel to user specified cutoff 

; Br if below user specified 

iOnly use this much memory 

iSet # 64-byte blocks of total memory 

i Save base 64-byte block # of top of free mem 



Turn off memory management 



TSINIT 


MEMTST 


115 


116 


117 


lie 


119 


120 


121 


122 


123 


124 


125 


126 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


144 


145 


146 


147 


148 


149 


150 


151 


152 


153 


154 


155 


156 


157 
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— Set up information about available memory space 



015470 105737 0000000 

015474 001403 

015476 042737 0000000 0000000 

015504 042737 0000000 OOOOOOG 9*: 



TSTB SR3FLG ; Do we have memory management req # 3? 

BEQ 9* J Br if non-existent 

BIG #EMMAP, «#SR3MliR J Disable extended memory management 

BIC #MMEN3L, @#SROMMRi Turn off memory management 



015512 023727 000134' 010000 

015520 103411 

015522 105237 OOOOOOG 

015526 123727 OOOOOOG OOOOOOG 

015534 001003 

015536 052737 000001 000242' 



If this is a Q-bus machine with >256Kb then set EXTLSI flag in ICONFG 

iDoes machine have at least 256Kb? 

i Br if not 

i Remember machine has at least 256kb 

i Is this a Q-bus machine? 

/Br if not 

iSet extended-LSI flag in ICONFG 



CMP 


FMEMHI, #4096. 


BLO 


25* 


INCB 


MEM256 


CMPB 


VBUSTP, #QBUS 


BNE 


25* 


BIS 


#EXTLSI, ICONFG 



See if this machine needs UNIBUS mapping 



015544 123727 OOOOOOG OOOOOOG 25*: 

015552 001005 

015554 105737 OOOOOOG 

015560 001402 

015562 105237 OOOOOOG 



015566 012637 000004 

015572 012605 

015574 012604 

015576 012603 

015600 012602 

015602 012601 

015604 000207 



29* 



CMPB 


VBUSTP, #U 


BNE 


29* 


TSTB 


MEM256 


BEQ 


29* 


INCB 


UBUSMP 


Finished 




MOV 


( SP ) +, e#4 


MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





VBUSTP, #UNIBUS ; Is this a UNIBUS machine? 



; Br if not 

iDoes machine have at least 256kb of memory? 

; Br if not 

; Say UNIBUS mapping is needed 



i Reset trap vector 



Trap 



return with C-bit set. 



015606 052766 000001 000002 TRCSET: BIS 



#1,2<SP) 



015614 000002 



RTI 



j Set c-bit for return 
i Return from trap 



lOT - return at kernel mode with c-bit preserved. 



015616 042766 OOOOOOG 000002 RTNKM: BIC 
015624 000002 RTI 



#UMODE, 2<SP) 



; Clear user mode - return to kernel 
i Return from trap 



€ 

i 
i 
€ 



015626 
015634 
015642 000137 004134 



Error: System does not have memory management hardware. 

NOXM: .PRINT #TSXHD > PRINT ERROR MESSAGE 

.PRINT #NXMMSG 
JMP INISTP i ABORT INITIALIZATION 
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I 
I 
< 

4 



3 

4 

5 

6 

7 

8 

9 
10 
11 

12 015646 
13 
14 
15 

16 015646 012700 0000000 
17 
18 
19 
20 

21 015652 

22 015656 
015662 
015666 

25 015674 

26 

27 

28 

29 015700 

30 015702 
31 
32 
33 

34 015706 

35 015712 

36 015716 

37 015720 

38 015724 
39 
40 
41 
42 
43 



23 
24 



062700 
042700 
010037 
062737 
062700 



006200 
010037 



062700 
072027 
000300 
052700 
010037 



015730 
015734 

44 015740 

45 015744 
46 

47 
48 

49 015750 

50 015754 

51 015760 

52 015764 

53 015766 

54 015770 

55 015774 

56 016000 
57 



013700 
062700 
072027 
010037 



012700 
062700 
072027 
005300 
000300 
052700 
042700 
010037 



000077 
000077 
OOOOOOG 

0000000 OOOOOOG 
00000 IG 



OOOOOOG 



000037 
177773 

000006 
OOOOOOG 



OOOOOOG 
000377 
177770 
OOOOOOG 



OOOOOOG 

000077 

177772 



000006 
100261 
OOOOOOG 



. SBTTL CXTALC — Set up info about job context area 

Set up information about the size of the job context area. 

Outputs: 
CXTWDS = Number of words needed for job context area. 
CXTPAG = Number of 512-byte pages needed for context aTBa. 
CXTPDR = Value to load into PDR when mapping job context area. 
CXTRMN = Address of simulated RMON in context area. 
RMNPDR = Value to load into PDR to map to simulated RMON. 

CXTALC: 

Get size of base portion of job context area 

MOV #CXTSIZ,RO iGet # bytes for base context area 

Bound up to 64-byte boundary and add size of simulated RMON 
tuhich is allocated above the base job context data. 



ADD #63. , RO 

BIC #77, RO 

MOV RO, CXTRMN 

ADD #CXTBAS, CXTRMN 

ADD #MVSIZ+liRO 



i Bound up to 64 byte boundary 

Offset to start of simulated RMON 

Add base virtual address of context area 

Add space for simulated RMON & channels 



Save number of words needed for context area 



ASR 
MOV 



RO 

RO, CXTWDS 



i Convert to # words 

iThis is # words for whole job context area 



Compute PDR value to use to map to job context area 



ADD 


#31. ,R0 


ASH 


#-5. , RO 


SWAB 


RO 


BIS 


#6, RO 


MOV 


RO, CXTPDR 



Bound up to # 32 word units 

Get # 32-word units for context area 

Put # 32-word units in high-order byte 

Set PDR control flags 

This is the PDR value 



Compute # 512-byte pages needed for job context block 



MOV 
ADD 
ASH 
MOV 



CXTWDS, RO 
#255. , RO 
#-8. , RO 
RO, CXTPAG 



Get back # words for context area 
Bound up to # 256-word blocks 
Get # 256-word pages for context area 
# pages for job context area 



Set up PDR value used when mapping to simulated RMON 



MOV 


#MVSIZ, RO 


ADD 


#63. , RO 


ASH 


#-6, RO 


DEC 


RO 


SWAB 


RO 


BIS 


#6, RO 


BIC 


#100261, RO 


MOV 


RO, RMNPDR 



Get size of monitor vector table 

Round up to # 32 word blocks 

Cvt to # 32-word blocks 

Get # blocks - 1 

Put # blocks in left byte 

Allow read and write access 

Make sure unused PDR bits are zero 

This is PDR value to map to sim. RMON 
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58 ; Finished 

59 ; 

60 016004 000207 RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 

27 016006 

28 016010 

29 016012 
30 

31 
32 
33 

34 016014 

35 016016 

36 016022 

37 016026 

38 016032 

39 016036 

40 016042 

41 016046 

42 016050 

43 016052 

44 016054 

45 016060 
46 

47 
48 

49 016064 

50 016070 

51 016074 

52 016076 

53 016102 

54 016106 

55 016110 

56 016112 
57 



SBTTL MAPALC 



Allocate memory usage table 



010246 
010346 
010446 



010503 
072327 
042703 
013702 
062702 
072227 
042702 
160203 
003440 
010304 
062704 
072427 



012700 
010037 
160200 
010037 
012700 
060300 
160400 
010037 



MAPALC is called to allocate a table that keeps track of which pages 

of memory are currently in use by user jobs and which are free. 

Each byte in the table corresponds to a 512-bytB block of physical memory. 

The portion of physical memory used by the system is not represented 

in the memory allocation table. 



Inputs: 
R5 
FMEMLO 

Outputs: 
FMEMHI 
MAP PAR 
BASMAP 



LOMAP = 



HIMAP = 



MAPALC: MOV 
MOV 
MOV 



64-byte block number of top of free memory area. 
64-byte block number of base of free memory area. 



64-byte block number of top of free memory area. 

64-byte block number used to map to the memory alloc table. 

Virtual address of memory allocation table that would 

correspond to physical address 0. Note/ the entries 

in the allocation table between BASMAP and LOMAP are 

actually not allocated. 

Virtual address of memory allocation table that corresponds 

to 1st physical 512-byte page that is available to user jobs. 

Note* LOMAP always contains 120000 because we access the 

allocation table by mapping it through PAR 5. 

Virtual address of memory allocation table that corresponds 

to 512-byte page above the top of the user area. 

R2, -(SP) 
R3, -<SP) 
R4, -<SP) 



Determine how many bytes will be required for the memory allocation table. 
One byte in the table is required for each 512-byte physical page. 



177775 

160000 

000136' 

000007 

177775 

160000 



001000 
177767 



OOOOOOG 
OOOOOOC 

OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV R5, R3 

ASH #-3i R3 

BIC #160000, R3 

MOV FMEMLO, R2 

ADD #7, R2 

ASH #-3i R2 

BIC #160000, R2 

SUB R2, R3 

BLE 10* 

MOV R3, R4 

ADD #512. , R4 

ASH #~9. , R4 



Get 64-byte block # of top of free mem 

Convert to 512-byte page # 

Kill possible sign extension 

Get 64-byte block # of base of free memory 

Round up 

Convert to 512-byte page # 

Kill possible sign extension 

Get # bytes needed for allocation table 

Br if memory overflow 

Get # bytes for allocation table 

Add 1 extra byte and round up to 512-byte 

Get # 512-byte units needed for alloc table 



Set up virtual address pointers for the allocation table 



MOV #VPAR5, RO 

MOV RO, LOMAP 

SUB R2, RO 

MOV RO, BASMAP 

MOV #VPAR5, RO 

ADD R3, RO 

SUB R4, RO 

MOV RO, HIMAP 



We will map to alloc table through PAR 5 

Pointer to 1st entry in alloc table 

Get pseudo virtual address for page 

This would point to alloc entry for 

Get back base address of table 

Add # bytes used by table 

Subtract space used by table itself 

Virtual address of 1st entry for system page 



# O 
page O 



I 
< 

i 
i 

i 
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58 
59 

60 016116 

61 016122 

62 016124 

63 016130 

64 016132 

65 016136 
66 

67 
68 

69 016142 

70 016144 

71 016146 

72 016150 
73 

74 
75 

76 016152 

77 016160 

78 016166 



072427 
160405 
020537 
101410 
010537 
010537 



012604 
012603 
012602 
000207 



000003 

000136' 

OOOOOOG 
000134' 



Allocate space for the allocation table 



ASH 


#3, R4 


SUB 


R4, R5 


CMP 


R5, FMEMLO 


BLOS 


10* 


MOV 


R5, MAPPAR 


MOV 


R5, FMEMHI 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i Get # 64-byte units for alloc table 

i Compute physical 64-byte base for table 

/Did me run out of memory space? 

i Br if memory overflow 

; Use this value to map PAR 5 to alloc table 

; Save new top of free memory area 



Error: Generated system is too large 



10*: 



000137 004134 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#PHSOVF 

INISTP 



/Print error message heading 
/Physical memory overflow 
/Abort the initialization 



TSINIT — 
SETJSZ — 

1 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 016172 
17 
18 
19 

20 016174 

21 016200 

22 016204 
23 

24 
25 

26 016210 

27 016214 
28 

29 
30 

31 016216 

32 016222 

33 016226 

34 016230 

35 016232 

36 016236 

37 016240 

38 016244 

39 016250 

40 016252 

41 016256 

42 016260 

43 016264 
44 

45 
46 

47 016270 

48 016274 

49 016276 

50 016302 
51 

52 
53 

54 016306 

55 016310 
56 

57 



010546 



013705 
163705 
010537 



020537 
103436 



013700 
010037 
160005 
006205 
020537 
101402 
013705 
010537 
010500 
072027 
001002 
012700 
010037 



020537 
101402 
013705 
010537 



012605 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

000012 

177774 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



. SBTTL SETJSZ — Set up information about maximum job sizes 

; SETJSZ is called to set up some information about the maximum 

■> job sizes to be allowed. The maximum job size is chosen so that 

; we are guaranteed to be able to get at least one job logged on. 

j 

i Inputs: 

J LOMAP = Address of 1st MEMMAP entry available to user jobs. 

i HIMAP = Address of 1st MEMMAP entry above top of user job area. 

i Outputs: 

i FREPGS = Total number of 512-byte pages available to user jobs. 

; MXJMEM = max # K bytes available to a job 

J DFJMEM = Default job memory size <kb) 

> 

SETJSZ: MOV R5, -<SP) 

i Determine total number of pages of memory available to user jobs 

POINTER ABOVE LAST FREE PAGE ENTRY 

GET TOTAL # OF FREE PAGES 

# FREE PAGES AVAILABLE TO USER JOBS 

Make sure there is enough free space to run TSKMDN. 



MOV 


HIMAP, R5 


SUB 


LOMAP, R 5 


MOV 


R5> FREPGS 



CMP 
BLO 



R5, KMNPGS 
1* 



; COMPARE # FREE PAGES TO # PAGES FOR TSKMON 
;BR IF INSUFFICIENT MEMORY TO RUN TSKMON 



Set up max memory limit for jobs 



10«: 



2*: 



MOV 


CXTPAG, RO 


MOV 


RO, JCXPGS 


SUB 


RO, R5 


ASR 


R5 


CMP 


R5, VHIMEM 


BLOS 


10* 


MOV 


VHIMEM, R5 


MOV 


R5, MXJMEM 


MOV 


R5, RO 


ASH 


#10. ,R0 


BNE 


2* 


MOV 


#177774, RO 


MOV 


RO, MXJADR 



i # PAGES NEEDED FOR JOB CONTEXT AREA 

LEAVE ROOM FOR JOB CONTEXT AREA 
Convert # pages to # KB 
COMPARE WITH TSGEN SPECIFIED MAX SIZE 
BR IF CONSTRAINED BY PHYSICAL SIZE 
LIMIT BY VALUE SPECIFIED IN TSGEN 
MAX # K BYTES AVAILABLE TO A JOB 

CONVERT # KB TO BYTE ADDRESS 
BR IF DIDN'T OVERFLOW 64KB 
GET 64KB TOP ADDRESS 
ADDRESS ABOVE TOP OF JOB 



Set default memory size of jobs 



11* 



CMP 


R5, VDFMEM 


BLOS 


11* 


MOV 


VDFMEM, R 5 


: MOV 


R5, DFJMEM 


Finished 




MOV 


<SP)+, R5 


RETURN 





COMPARE TO DEFAULT SPECIFIED IN TSGEN 
BR IF CONSTRAINED BY PHYSICAL LIMIT 
CONSTRAIN BY TSGEN PARAMETER 
SET DEFAULT JOB MEMORY SIZE 



Error — Insufficient memory space available to run TSKMON. 



4 

( 
( 

i 
i 
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58 i 

59 016312 004737 025124' 1$: CALL SIZERR > Generated sustem is too bio — abort 



TSINIT - 
SETJSZ - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
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.IF NE, <PR0ASM-1> ; No parity control if PRO only 
. SBTTL PARSET — Setup memory parity control 

PARSET is called to set up memory parity control. 
Currently this consists of disabling memory parity. 



PARSET: 



TST 


#MPARFL 


BNE 


20* 


MOV 


R2, -(SP) 


MOV 


e#4, -<SP> 



; Does he utant to disable memory parity? 
; Br if not 



i Save contents of trap vector 
Catch traps that occur when u>e access unimp lemented parity registers 
#2$/ @#4 



MOV 
NOP 
NOP 



; Send traps to 2* 

iClean out instruction pipeline 



Disable parity for each block of memory 



016316 000207 



MOV 


#MPARO, R2 


1*: BIC 


#PARENL, <R2) 


BR 


3* 


2*: ADD 


#4, SP 


3*: ADD 


#2i R2 


CMP 


R2, #MPAR16 


BLOS 


1* 


i Finished 




MOV 


( SP ) +, e#4 


MOV 


(SP)+, R2 


20*: RETURN 




. IFF 


i HE. <PR0ASM-1 


PARSET: RETURN 




. ENDC 


i NE/ <:proasm-i 



Point to 1st memory control register 

Disable memory parity 

\4e did not trap 

Clean trap PS and PC off of stack 

Point to next parity control register 

Have we cleared all registers? 

Loop if not 



Restore trap vector 
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. SBTTL GETHNL 



Load device handlers into memory 



^ 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 



016320 010146 
016322 010246 
016324 010446 



016326 005001 

016330 020127 OOOOOOC 

016334 103015 

016336 016102 OOOOOOG 

016342 001407 

016344 020227 OOOOOOG 

016350 001404 

016352 016104 OOOOOOG 



016356 004737 016430 



016362 062701 
016366 000760 



000002 



OOOOOOG 
OOOOOOG 



016370 012704 

016374 001411 

016376 012701 

016402 012102 

016404 010446 

016<106 005004 

016410 004737 016430 

016414 012604 

016416 077407 



016420 012604 

016422 012602 

016424 012601 

016426 000207 



GETHNL performs two functions: 

1. Set up information in the device tables about all devices. 

2. Load those handlers that reside in low memory. 

Inputs: 
R5 = Address of start of free memory. 

Outputs: 
R5 = Address of new start of free memory. 
NliXHAN = Number of handlers to load into extended memory. 



GETHNL: MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 
R4, -<SP) 



1*: 



3*: 



Begin loop to check all handlers specified in TSGEN with DEVDEF. 

finit device table index 



Br if yes 

Get the name of the device 

Ignore null devices 

Is this a dummy device entry? 

Skip it if yes 

Get flags specified in TSGEN 



Try to load handler into memory 



i Advance device index 

i See if more devices to load 



CLR 


Rl 


CMP 


R 1 < #<AHEND-AU 


BHIS 


2* 


MOV 


AUTHAN(R1),R2 


BEQ 


3* 


CMP 


R2, #DMYDEV 


BEQ 


3* 


MOV 


DTYPE(R1),R4 



Load this handler 

CALL LDHAND 
Check next device 



ADD 
BR 



#2, Rl 
1* 



Now see if there are spooled devices to contend with 



2*: 



5*: 



9*: 



MOV 


#SPLND, R4 


BEQ 


9* 


MOV 


#SPLDEV, Rl 


MOV 


<R1)+,R2 


MOV 


R4, -(SP) 


CLR 


R4 


CALL 


LDHAND 


MOV 


(SP)+, R4 


SOB 


R4, 5* 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





/Are there any spooled devices? 

i Br if not 

/Point to spooled device name table 

/Get the name of the next spooled device 

/Save device count 

/Say no TSGEN flags for device 

/ Load the handler 

/Recover the device count 

/Loop if more handlers to load 



TSINIT - 


— TSX s 


tartup initializ 


MACRO V 


LDHAND - 


— Load 


a device 


handler 




1 
2 










3 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 










14 










15 










16 










17 










IS 










19 










20 










21 


016430 


010446 






22 










23 










24 










25 


016432 


004737 


016602' 




26 


016436 


103457 






27 










28 










29 










30 










31 


016440 


004737 


016760' 




32 


016444 


103451 






33 










34 










35 










36 










37 










38 


016446 


004737 


017374' 




39 










40 










41 










42 










43 


016452 


016400 


OOOOOOG 




44 


016456 


032700 


OOOOOOG 




45 


016462 


001036 






46 


016464 


032700 


OOOOOOG 




47 


016470 


001433 






48 


016472 


032700 


OOOOOOG 




49 


016476 


001412 






50 


016500 


105737 


OOOOOOG 




51 


016504 


001025 






52 


016506 


032700 


OOOOOOG 




53 


016512 


001404 






54 


016514 


032737 


000001 


000242 ' 


55 


016522 


001016 






56 










57 











MACRO V05. 05 Friday 20-Jan-89 11:30 Page 52 



SBTTL LDHAND — Load a device handler 



LDHAND sets up the device tables for a handier and loads into memory 

those handlers that reside in low memory. 

The device interrupt vectors are NOT set up by LDHAND. 

Inputs: 
R2 == Rad-50 name of device. 

R4 = TSX-Plus DX«xxx status flags for device from TSGEN. 
R5 = Address where handler is to be loaded. 

Outputs: 
R5 = New free memory address. 
NUMDEV = Incremented by 2. 
PNAME(i> = Rad-50 name of device. 
ENTRY<i) = Handler entry point. 
DVSTAT(i) = Device status flags. 
DVFLAG<i) = TSX-Plus device status flags. 
HANPAR(i) = PAR offset if this is a mapped handler. 

LDHAND: MOV R4, -<SP) 

Determine if we should ignore this device 



CALL 
BCS 



INSCKl 
9* 



/Should we ignore this device? 
i Br if yes 



The initial tests indicate that this handler should be loaded. 
Now open the handler file and perform some additional checks. 



CALL 
BCS 



INSCK2 
8$ 



j Perform some additional checks on handler 
» Br if we should not load this device 



At this point channel 1 is open to the handler file and block 

of the handler is in WRKBUF. 

Set up information tables for this device. 



CALL 



STDVTB 



Set up info in tables for this device 



Determine if this handler is to be loaded into low memory or 
extended memory. 

Get TSX-Plus status flags for device 

Are we never to map this handler? 

Br if handler cannot be mapped 

Is mapping wanted for this handler? 

Br if not 

Does this handler have an internal I/O buff? 

Br if not 

Does this machine have a mapped UNIBUS? 

Br if yes — Don't map this handler 

Does this handler require I/O mapping? 

Br if not 

Is this a Q-bus system with more than 256Kb? 

Br if yes — Don't map this handler 

This handler can be mapped and will be loaded in extended memory 



MOV 


DVFLAG(R4),R0 


BIT 


#DX*NHM, RO 


BNE 


1* 


BIT 


#DX*MPH, RO 


BEQ 


1* 


BIT 


#DX*IBH, RO 


BEQ 


2* 


TSTB 


UBUSMP 


BNE 


1* 


BIT 


#DX*MAP> RO 


BEQ 


2* 


BIT 


#EXTLSI, ICONFG 


BNE 


1* 



i 
i 
i 

i 



TSINIT 
LDHAND 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 



016524 
016530 



016536 
016544 
016546 
016552 
016556 



016560 
016564 



016570 



016576 
016600 



005237 
012764 



026427 
101411 
012700 
004737 
000404 



005064 
004737 



000124' 2*: 

000001 OOOOOOG 



OOOOOOG 020000 



INC NMXHAN 

MOV #1,HANPAR(R4) 



i Count # of mapped handlers 

J Set flag saying handler should be mapped 



002335 ' 
020472 ' 



OOOOOOG 
017504' 



012604 
000207 



Make sure size of mapped handler does not exceed 8KB 



CMP 

BLOS 

MOV 

CALL 

BR 



HANSIZ<R4), #8192. -Is mapped handler too big? 



8$ 

#HN2BIG, RO 
HLERR 
8« 



Br if not too big 

Get error message address 

Abort initialization if iniabt 



This handler must be loaded into lou memory 



1*: 



CLR HANPAR(R4) 
CALL LDHNLO 



i Close the handler file 

i 

8*: . CLOSE #1 

i 

i Finished 

i 

9*; MOV <SP)+, R4 
RETURN 



i Say this handler is not mapped 
i Load handler into low memory 



/Close the handler file 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 016602 
17 
18 
19 

20 016604 

21 016606 

22 016610 

23 016614 

24 016620 

25 016622 
26 

27 
28 
29 

30 016626 

31 016632 

32 016634 

33 016640 

34 016642 

35 016644 

36 016650 

37 016652 

38 016654 

39 016656 
40 

41 
42 

43 016660 

44 016664 

45 016666 

46 016672 

47 016674 

48 016700 
49 

50 
51 
52 

53 016702 

54 016706 

55 016712 

56 016714 

57 016720 



010146 



010201 
005000 
071027 
070027 
010102 
010237 



020227 
001004 
105737 
001044 
000417 
012701 
020221 
001437 
005711 
001374 



013701 
001406 
020261 
001427 
162701 
003372 



012701 
020261 
001003 
056104 
000405 



. SBTTL INSCKl 



Determine if a handler should be installed 



INSCKl is called to determe if a certain device handler should be 
loaded. 

Inputs: 
R2 = RadSO name of the device. 
R4 = Initial DX*xxx flags as specified in TSGEN. 

Outputs: 
C-flag cleared ==> Load the handler. 
C-flag set ==> Do not load the handler. 
R2 = Device name with unit number removed. 
R4 = DX*xxx combined mith default flags for the device. 



INSCKl: MOV R1,-(SP> 

Strip off any specified unit number 



000050 
000050 

000146' 



MOV 
CLR 
DIV 
MUL 
MOV 
MOV 



R2, Rl 

RO 

#50. RO 

#50, RO 

Rl, R2 

R2, CURNAM 



Get full device name 

Set for divide 

Split off last digit 

Now correct for divide 

Get device name less 3rd digit 

Set name of handler being loaded 



045640 
OOOOOOG 

000160' 



1*: 
2*: 



See if this is a device such as DK* SYi or TT which we don't 
need to load as a device handler. 

Is device name LD? 

Br if not 

Is standard system LD support included? 

Br if yes — Don't load LD 

Load LD 

Point to table of devices to skip 

Is this a device to be skipped? 

Br if yes 

Reached end of skip list? 

Loop if not 

See if we have already loaded the handler for this device 



CMP 


R2, #R50LD 


BNE 


1$ 


TSTB 


VLDSYS 


BNE 


5* 


BR 


3* 


MOV 


#SKPDEV, Rl 


CMP 


R2, <R1)+ 


BEQ 


5* 


TST 


<R1) 


BNE 


2* 



OOOOOOG 
OOOOOOG 
000002 



MOV NUMDEV, R 1 

BEQ 3* 

4*: CMP R2, PNAME<R1) 

BEQ 5$ 

SUB #2, Rl 

BGT 4* 



i Get index for last device 

j Br if no devices installed yet 

; See if this device is already installed 

i Br if already installed 

i More installed devices to check? 

i Loop if yes 



This handler is to be loaded. 

Get default TSX-Plus control flags for this device. 



000336 ' 
000000 

000002 



iPoint to start of table 
/Search for device in the table 



3*: MOV #DVFLBS, Rl 

6*: CMP R2, DV*NAM(R1) 

BNE 7* J Br if this is not it 

BIS DV*FLG<R1),R4 iCombine default flags 

BR 8* 



i 
i 
I 

I 
I 
i 
i 
4 
I 
< 
I 
i 
i 
i 
i 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
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— Determine if a handler should be installed 



016722 062701 000004 
016726 020127 000516' 
016732 103765 



016734 032704 OOOOOOG 

016740 001402 

016742 052704 OOOOOOG 



016746 000241 
016750 000401 



016752 000261 



016754 012601 
016756 000207 



ADD 


#DV**S2, Rl 


CMP 


R1,#DVFLND 


BLO 


6* 



7*: ADD #DV**S2,R1 ; Point to next entry 

iChecked all entries? 
i Loop if not 

If this is a DMA device^ set flag saying buffers must be on 
even byte boundaries. 



8*: BIT #DX*DMA, R4 
BEQ 10* 
BIS #DX$EBA, R4 

Load this handler 



10*: 



CLC 
BR 



9* 



Do not load this handler 
5*: SEC 
Finished 



9*: 



MOV (SP)+, Rl 
RETURN 



; Is this a DMA device? 

; Br if not 

; Set even-buffer-boundary flag 



; Set flag saying to load the handler 



Set flag saying not to load the handler 



I 

€ 

i 

i 
( 
i 

€ 
I 

I 
i 
€ 

I 

< 

i 
i 
t 
I 

4 



i 



1 



€ 
I 
I 
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3 
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6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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016760 
016762 
016764 
016766 
016770 
016772 
016776 



017002 

017006 
017026 



017030 
017034 
017040 



017044 
017102 
017104 
017110 
017114 



017120 
017124 
017130 
017134 
017140 
017142 
017150 
017152 
017156 
017162 
017164 
017170 



010146 
010246 
010346 
010446 
010546 
013746 
013746 



012700 
004737 
000137 



103006 
012700 
004737 
000137 



012700 
013701 
116101 
120160 
001011 
026037 
101412 
012700 
004737 
000472 
062700 
020027 



000004 
000010 



010237 000202' 



103006 



001510' 
020472 ' 
017350' 



. SBTTL INSCK2 — Additional checking for handler installation 

INSCK2 is called to determine if a device handler should be installed. 

Inputs: 
R2 = RadSO device name (without unit number). 

Outputs: 
C-flag cleared --> Load this handler. 
C-flag set ==> Do not load this handler. 

If the handier is to be loaded; its block is in WRKBUF and channel 
number 1 is opened to the handler file. 



INSCK2: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
R5, -(SP) 
@#4, -(SP) 
@#10, -(SP) 



i Save the bus timeout vector 

j Save illegal instruction vector 



Try to lookup handler file on system disk 

MOV R2/ HANNAM+2 i Set the device name for the lookup 
Don't change channel # without changing STDVTB 

.LOOKUP #AREA. #l,#HANNAMi Try to open the handler file 
BCC 1* i Br if we found the handler file 



Error 



Cannot find handler file 



2*: 



MOV 


#CFHMSG, RO 


CALL 


HLERR 


JMP 


13* 



;Can't find handler 

; See if should abort initialization 



001552' 
020472 ' 
017350' 



000322 ' 
000152' 
0000000 
000000 

000002 000156' 

001616' 
020472 ' 

000004 
000336 ' 



We were able to open the handler file. 
Read in block of handler. 

1*: . READW #AREA, #1, WRKBUF, #256. ; #0 i Read block into WRKBUF 

BCC 3* iBr if read ok 

MOV #ERHMSG> RO i Error during read 

CALL HLERR 

JMP 13* 

Determine if the handler is supported under the current RT-11 version 



4 
I 
i 
I 

i 

i 
i 

€ 
i 

t 

I 
I 
I 



3*: 



51*: 



53*: 



MOV 

MOV 

MOVE 

CMPB 

BNE 

CMP 

BLOS 

MOV 

CALL 

BR 

ADD 

CMP 



#HVTBL, RO 
WRKBUF, Rl 
H. D3TS(R1),R1 
Rl, HV*ID(RO) 
53* 



j Point to table with handler version info 
iPoint to buffer with block of handler 
; Get device ID code from handler 
J Compare handler ID code with table entry 
; Br if this entry not for this handler 



HV*VER(RO), RTVPTR >Is handler valid for this version? 

54* ; Br if OK 

#ERHNDV, RO ; Wrong version of RT for handler 

HLERR J See if should Report error and abort 

13* 

#HV**SZ, RO i Point to next handler version table entry 

ROi #HVEND iAre there more entries? 



I 
i 

i 






> 



< 



1 
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76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
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108 
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017174 103757 



017176 
017202 
017210 
017212 
017216 
017222 
017224 



017232 
1 7240 
017246 
017252 
017256 
017260 
017262 
017264 
017270 
017274 



017276 
017302 
017304 
017306 
017312 
017320 
017324 
017326 
017332 
017334 
017340 
017344 



017346 
017350 
017354 
017360 
017362 
017364 
017366 
017370 
017372 



013700 
032760 
001005 
012700 
004737 
000452 
016037 



012737 
012737 
013700 
016001 
001407 
005711 
103005 
012700 
004737 
000425 



062700 
005710 
001420 
013746 
012737 
013703 
004710 
012637 
103006 
012700 
004737 
000401 



000241 

.26 

.26 
012605 
012604 
012603 
012602 
012601 
000207 



BLD 



51* 



; Loop if more to check 



Check handler sysgen options 



000152' 54$: 

OOOOOOG 0000000 

002027 ' 
020472 ' 

OOOOOOG 000240' 4*: 



MOV WRKBUF, RO ; Point to buffer with handler block 

BIT #SG$MMU» H. GEN<RO); Was handler genned with XM support? 

BNE 4* ; Br if yes 

MOV #HSGER. RO ; Error if not XM version of handler 

CALL HLERR 

BR 13* 

MOV H. GEN <R0), HGENFLi Save handler sysgen flags for later 



015606' 000004 
015606' 000010 
000152' 
OOOOOOG 



001670' 
020472 ' 



Check the CSR address specified in the handler to see if the 
hardware device for this handler exists. 



Catch bus timeout traps 

Catch illegal instruction traps 

Point to start of block of handler 

Get address of CSR for device 

Br if no CSR specified 

Is CSR accessible? 

Br if ok 

Trap occurred while accessing CSR 

See if should report error and abort 



MOV 


#TRCSET, e#4 


MOV 


#TRCSET, @#10 


MOV 


WRKBUF, RO 


MOV 


H. CSR(RO), Rl 


BEQ 


5* 


TST 


<R1) 


BCC 


5* 


MOV 


#NOCSRR, RO 


CALL 


HLERR 


BR 


13* 



Execute the device installation code. 

The installation code will set the C-flag 

not be loaded. 



if the handler should 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

001721 ' 
020472 ' 



5*: 



ADD 


#H. INS, RO 


TST 


©RO 


BEG 


11* 


MOV 


@#RMON> -<SP) 


MOV 


#MDNVEC,@#RMON 


MOV 


RPRVEC, R3 


CALL 


@R0 


MOV 


(SP)+, @#RMON 


BCC 


13* 


MOV 


#ERHINS, RO 


CALL 


HLERR 


BR 


13* 



Offset 200 in block 

Does any installation code exist? 

Br if no driver installation code 

Save RT-11 RMON pointer 

Set TSX-Plus RMON pointer 

Get pointer to Pro vec addr routine 

Call the installation code 

Restore RT-11 RMON pointer 

C-flag now indicates handler load status 

Error occured in handler installation code 



000010 
000004 



i 

i Finished 


wi 


th installat 


i 

11*: 


CLC 






13*: 


MOV 




(SP)+, @#10 




MOV 




<SP)+, e#4 




MOV 




<SP)+, R5 




MOV 




<SP)+, R4 




MOV 




(SP)+, R3 




MOV 




(SP)+, R2 




MOV 




(SP)+, Rl 




RETURN 





; Clear the c~bit for driver installation 
i Restore illegal instruction vector 
; Restore the bus timeout vector 



I 

i 
i 

i 
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01 
01 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 01 

31 01 
32 
33 
34 
35 
36 
37 
38 
39 
40 

41 

42 

43 01 

44 

45 

46 

47 01 

48 01 

49 01 

50 01 

51 01 
52 

53 
54 

55 01 

56 01 

57 01 



017374 



7374 
7402 



7406 
7412 



7424 
7426 
7432 
7440 
7446 



7454 
7462 
7464 



SBTTL STDVTB 



Set up device table entries for a device 



STDVTB is called to set up device table entries for a device whose 
handler is being loaded. 

Inputs: 
R2 = Rad50 name of device (less unit number). 
R4 = DX*xxx device flags for DVFLAG table. 
Block of the handler must be in WRKBUF. 
Channel 1 must be open to the handler file. 

Outputs: 
R4 = Device table index number for this device. 
NUMDEV = Incremented by 2. 
PNAME<i> = RadSO name of the device. 
DVSTAT(i) = Device status flags. 
DVFLAG(i) = TSX-Plus control flags. 
HANSIKi) = Size of handler (bytes). 
DEVSIZ(i) = Size of device (blocks). 

STDVTB : 

Increment device counter 



062737 000002 OOOOOOG 
013700 000000<? 



010260 OOOOOOG 
010460 OOOOOOG 



ADD 
MOV 



#2i NUMDEV 
NUMDEV, RO 



Set up PNAME and DVFLAG. 

MOV R2i PNAME (RO) 
MOV R4, DVFLAG (RO) 



; Say another device added to tables 
; Get device index number 



; Set permanent device name 

/Set up TSX-Plus control flags for the device 



7416 012760 000001 OOOOOOG 



010004 
013700 
016064 
016064 
016064 



032764 
001404 
032764 



000152' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



Set HANDSK entry to 1. 

This entry is supposed to hold the absolute block number on the disk where 

block 1 of the handler is located. We set to 1 because all 10 we do 

on behalf of the handler is relative to the base of the handler rather than 

relative to the start of the disk. This is critical during handler 

load/fetch code. 

NOTE: : This table is replaced during KMINIT by the location of handler 

block 1 relative to the start of the disk so that utilities can find 

the handler files in the same way as under RT~11. 

MOV #1, HANDSK(RO) i Set block 1 relative offset of handler file 

Extract parameters from handler block 

MOV ROi R4 i Carry device index in R4 

MOV WRKBUF, RO i Point to block of handler 

MOV H. SIZ(RO), HANSIZ(R4) i Set handler size 

MOV H. DVSZ(RO), DEVSIZ(R4) i Number of blocks on device 

MOV H. DSTS(RO), DVSTAT(R4) ; Set device status flags 

Disable MOUNTs and data caching for certain devices 

BIT #DS*DIR, DVSrAT(R4) i Is this a directory structured device? 

BE(3 1* ; Br if not — No mounts allowed 

BIT #DS*NRD, DVSTAT<R4) ; Non RT-1 1 directory structure (mag tape)? 



f 

i 
i 
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c 



58 017472 001403 BEQ 9* i Br if not 

59 017474 052764 OOOOOOC OOOOOOG 1*: BIS #<DX*NMT ! DX«NCA>. DVFLAG(R4) iDisable mounts and data caching < 

60 ; 

61 ; Finished 

62 ; f 

63 017502 000207 9*: RETURN 

I 

c 

4 

I 

€ 

i 

i 

€ 

I 

I 

€ 

i 

4 
A 
I 
I 

( 



TSINIT - 
LDHNLO - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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— Load device handler into low memory 



017504 010346 



017506 005064 0000000 

017512 010500 

017514 016403 OOOOOOG 

017520 060300 

017522 004737 025104' 



017526 006203 

017530 

017564 103005 

017566 012700 001552' 

017572 004737 020472' 

017576 000414 



017600 010564 OOOOOOC 

017604 062764 000006 OOOOOOG 

017612 006303 

017614 060305 



017616 010503 

017620 004737 020400' 



017624 004737 020542' 



. SBTTL LDHNLO — Load device handler into loiu memory 

LDHNLO is called to load a device handler into low memory. 

Inputs: 
R4 = Device index number. 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory area. 

LDHNLO: MOV R3, -(SP) 

Determine if lue have enough free memory space to read the handler 

; Say this handler is not mapped 

; Get current top of memory address 

; Get size of handler 

; Get address above top of handler 

;See if handler will fit in memory 

Handler will fit. Read it into memory. 

ASR R3 i Get number of words to read 

. READW #AREA>#1,R5, R3, #1 

BCC 1* ; Br if read ok 

MOV #ERHMSG. RO /Error reading handler 

CALL HLERR i See if should Abort initialization 

BR 2* 

Set address of handler entry point and compute address beyond 
end of the handler. 

1*: MOV R5, HANENT(R4) ; Set address of handler entry point 

ADD #6, HANENT<R4) ; (Point to fourth word of handler) 

ASL R3 /Convert handler size to bytes 

ADD R3. R5 ; Point beyond end of handler 

Set up table of addresses of support routines at end of handler. 



CLR 


HANPAR(R4) 


MOV 


R5/ RO 


MOV 


HANSIZ<R4)/R3 


ADD 


R3, RO 


CALL 


CHKMEM 



MOV 
CALL 



R5/ R3 
STHNPV 



/Get address past end of handler 
/Set up pointer vector in handler 



017630 012603 
017632 000207 



2$: 



If handler has any load-time exectuion code/ run it now 

CALL DOHNLC /Run any load-time code for handler 

Finished 

MOV (SP)+/R3 
RETURN 



TSINIT — TSX startup initializ MACRO 
GETHNH — Load handlers into extended 

1 

2. 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 017634 010446 
14 
15 
16 
17 
IS 

19 017636 012704 000002 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

TO 



17642 
17646 



005764 
001402 



OOOOOOG 



017650 004737 017672' 



33 

34 

35 
36 
37 
38 

39 

40 O 



17654 
17660 
17664 



17666 
17670 



062704 
020437 
101766 



012604 
000207 



000002 
OOOOOOG 
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memory 

. SBTTL GETHNH — Load handlers into extended memory 

GETHNH is called to load those handlers that can be placed in extended 
memory. The status tables for these devices have already been set up 
by GETHNL. 

Inputs: 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of ^vee memory area. 



GETHNH: MOV 



R4, -(SP) 



Begin looking for handlers that are to be loaded into extended memory. 
GETHNL stored a non-zero (but meaningless) value in the HANPAR entry 
for each handler that is to be mapped. 

MOV #2/ R4 i Get index for first device entry 

See if this device has a mapped handler 



1*: TST HANPAR (R4) 
BEQ 2* 



i Is this handler mapped? 
j Br if not 



We found an entry for a device with a mapped handler. 
Load the handler. 

CALL LDHNHI > Load a mapped handler 

Look for more mapped handlers 



2*: ADD #2, R4 

CMP R4, NUMDEV 

BLOS 1* 

Finished 



; Increment device index 
iChecked all devices? 
i Loop if not 



MOV (SP)+, R4 

RETURN 
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I 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 017672 

13 017674 

14 017676 

15 017700 
16 

17 
IS 

19 017702 

20 017710 

21 017716 

22 017736 

23 017740 

24 017744 

25 017750 
26 

27 
28 

29 017754 

30 017760 

31 020014 
32 

33 

34 

35 020022 

36 

37 

38 

39 

40 020030 

41 020034 

42 020036 

43 020042 

44 020044 

45 020050 

46 020054 

47 020060 

48 020062 

49 020066 

50 020072 
51 

52 
53 

54 020100 

55 020102 

56 020106 

57 020110 



. SBTTL LDHNHI — Load device handler into extended memory 

LDHNHI is called to load a device handler into extended memory. 

Inputs: 
R4 = Device index number. 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of free memory area. 



010146 
010246 
010346 
010446 



016437 
016437 

103006 
012700 
004737 
000137 



013702 
016237 



LDHNHI: MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, - < SP ) 
R3, ~(SP) 
R4, -(SP> 



OOOOOOG 000202 
OOOOOOG 000146 



001510' 
020472 ' 
020360 ' 



000152' 
OOOOOOG 000240' 



8*; 



012764 0000066 OOOOOOG 



Open channel 1 to the handler file. 

MOV PNAME<R4), HANNAM+2 ; Set the device name for the lookup 

MOV PNAME(R4)i CURNAMi Set name in case we have an error 

.LOOKUP #AREA, #1, #HANNAMj Try to open the handler file 

BCC 8* i Br if we found the handler file 

MOV #CFHMSG, RO ; Can't find handler 

CALL HLERR ; See if should Abort initialization 

JMP 9* 

Read block of the handler file and extract some information 

MOV WRKBUF, R2 i Get address of work buffer 
. READW #AREA, #1,R2, #256. ,#0 ; Read block of handler 
MOV H. GEN (R2), HGENFLi Save handler sysgen flags 

Set virtual address of handler entry point 

MOV #VPAR5+6, HANENKR4) i Set virtual addr of handier entry point 

Get information about the size of the handier and determine the 
address in extended memory where the handler is to be loaded. 



016402 
005202 
042702 
010200 
062700 
072027 
060037 
160005 
010564 
010537 
012737 



010203 
020327 
101402 
012703 



OOOOOOG 

000001 

000077 
177772 
OOOOOOG 

OOOOOOG 
000126' 
000001 000142 



MOV HANSIZ(R4), R2 

INC R2 

BIC #1,R2 

MOV R2, RO 

ADD #63. , RO 

ASH #-6, RO 

ADD RO, MHNSIZ 

SUB RO, R5 

MOV R5, HANPAR<R4) 

MOV R5, HMAP 

MOV #1,FILBLK 



J Get size of handler (bytes) 
;Make sure handler size is even 



jRound up to # 64-byte blocks 

; Get # 64~byte blocks for handler 

; Accumulate total space for mapped handlers 

i Reserve room for handler 

i Set mapping value for handler 

; Set initial PAR base for handler 

; Set # of block to read from file 



Begin loop to read handler into memory 



1*: 



001000 
001000 



MOV 


R2, R3 


CMP 


R3. #512. 


BLOS 


2* 


MOV 


#512. ,R3 



iGet remaining size of handler 
/Compare with max we can read at one time 
i Br if we can read remainder of handler 
i Read one bloc k 
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65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
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020114 160302 



020116 
020120 
020124 
020160 
020162 
020166 
020172 



020174 
020200 
020206 
020212 
020220 
020226 
020232 
020234 
020242 
020244 
020246 
020252 
020254 
020262 
020270 
020274 



020302 
020310 
020314 
020316 



020320 
020324 
020330 
020334 
020340 



020344 
020350 
020354 



020360 



006203 
013701 

103005 
012700 
004737 
000472 



000152' 



001552' 
020472 ' 



2*: SUB R3, R2 i Reduce amt of handler left to read 

Read next block of handler 

ASR R3 iOet # words to read 

MOV WRKBUFiRl ; Get address of buffer for read 

. READW #AREA, #1, R1,R3. FILBLK j Read a block 

BCC 3* ; Br if read ok 

MOV #ERHMSG- RO /Get error message 

CALL HLERR ; See if should Abort initialization 

BR 9* 

Move the code me just read into the XM area for the handler 



012700 OOOOOOG 



3*: 



013746 
013737 
052737 
105737 
001403 
052737 
012120 
077302 
105737 
001403 
042737 
042737 
012637 



062737 
005237 
005702 
001270 



012703 
066403 
004737 
004737 
004737 



010537 
004737 
013705 



OOOOOOG 

000126' OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



4*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 5*; 
OOOOOOG 



MOV 


#VPAR5, RO 


DISABL 




MOV 


@#KPAR5, -(SP) 


MOV 


HMAP, @#KPAR5 


BIS 


#MMENBL, @#SROMMR 


TSTB 


MEM256 


BEQ 


4* 


BIS 


#EMMAP, e#SR3MMR 


MOV 


(Rl)+, (R0)+ 


SOB 


R3i 4* 


TSTB 


MEM256 


BEQ 


5* 


BIC 


#EMMAP. e#SR3MMR 


BIC 


#MMENBL, e#SR0MMR 


MOV 


(SP)+, g!#KPAR5 


ENABL 





region 

5 
area 



See if there is more to read 



000010 
000142 



000126 



ADD 
INC 
TST 
BNE 



#8. , HMAP 

FILBLK 

R2 

1* 



Get virtual address of mapped 
** Disable interrupts *# 

Save current mapping of PAR 

Set up mapping to get to XM 

Enable memory management 

Does machine have > 256KB? 

Br if not 

Enable extended memory addressing 

Move from WRKBUF to XM region 

Loop till all moved 

Does machine have > 256KB? 

Br if not 

Disable extended memory addressing 

Enable memory management 

Replace PAR 5 mapping 
** Enable interrupts »•»■ 



Increase XM region base 
Increment file block number 
Is there more to read? 
Loop if more to read 



We have finished moving the handler into its XM region. 

Set up addresses of system routines in a vector at the end of the handler 



OOOOOOG 
OOOOOOG 
021242' 
020400 ' 
021316' 



000134' 
020542' 
000134' 



MOV #VPAR5i R3 

ADD HANSIZ(R4>,R3 

CALL HANMAP 

CALL STHNPV 

CALL HANUMP 



Get virtual address of handler base 

Get virtual address beyond end of handler 

/ i Map KPAR5 to the handler 

; j Set up handler pointer vector 

Restore mapping 



If handler has any load-time code* run it now 



MOV 


R5, FMEMHI 


CALL 


DOHNLC 


MOV 


FMEMHI, R 5 



Close the handler file 



9*: 



. CLOSE #1 



/ Set addr of top of free memory arec 
J Run any load-time code for handler 
i Get new top of free memory address 



iClose the handler file 



I 
4 
4 
4 
I 
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115 
116 
117 

lis 

119 
120 
121 



020366 
020370 
020372 
020374 
020376 



012604 
012603 
012602 
012601 
000207 



Finished 

MOV 
MOV 
MOV 
MOV 



(SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 

15 020402 

16 020406 

17 020412 
IS 020420 

19 020422 

20 020426 
020434 
020436 

23 020442 
020446 
020452 
020456 
020462 



21 

22 



24 

25 



26 
27 

29 
30 
31 
32 



. SBTTL STHNPV 



Initialize pointer vector in a handler 



STHNPV is called to initialize the pointer vector at the end of a 
handler which provides the addresses of various system routines to the 
handier. 

Inputs: 
R3 = Address beyond the end of the handler. 
HGENFL = Sysgen option flags for the handler being loaded. 



020400 010346 



012743 
012743 
032737 
001402 
012743 
032737 
001402 
012743 
012743 
012743 
012743 
012743 
012743 



STHNPV: MOV R3, "<SP) 

Set up addresses in the pointer vector 



OOOOOOG 
0000000 
OOOOOOe 000240' 

OOOOOOG 
OOOOOOG 000240' 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



2*: 



3*: 



MOV 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Finished 



020466 
020470 



012603 
000207 



MOV 
RETURN 



#FORK, -<R3) 

#INTEN, -<R3) 

#SG$ I OT. HGENFL 

2« 

#IOTIMR, -(R3) 

#SG*ELG, HGENFL 

3* 

#ERRLOG, ~(R3) 

#PTWRD, -(R3) 

#PTBYT, -(R3) 

#GTBYT, -<R3) 

#MPPHY, -<R3) 

#RELOC, -<R3) 



<SP)+, R3 



; Address of fork routine 

i Address of inten routine 

; Does handler uiant timeout support? 

i Br if not 

i Set address of timeout support routine 

; Does handler want error logging support? 

; Br if not 

j Set address of error logging routine 
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1 
5 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 



020474 
020500 
020502 
020510 
020514 
020520 
020524 
020532 
020536 
020540 



010001 
105737 
001416 



013700 
004737 

000137 
000261 
000207 



Error occured uihile loadinq device handler. 

RO = error message address; CURNAM = device name. 



HLERR: 



OOOOOOG 



000146' 
025274 ' 

004 1 34 ' 



9*: 



MOV 


R0,R1 


TSTB 


VINABT 


BEQ 


9* 


. PRINT 


#TSXHD 


. PRINT 


Rl 


MOV 


CURNAM, RO 


CALL 


PRTR50 


. PRINT 


#CRLF 


JMP 


INISTP 


SEC 




RETURN 





SAVE ERROR MESSAGE ADDRESS 

ABORT OR JUST PRINT MESSAGE? 

BR IF NOT ABORT 

PRINT ERROR MESSAGE HEADING 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 

PRINT DEVICE NAME 

i ABORT INITIALIZATION 
; MAKE SURE CARRY IS SET 
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i 
i 

' i 

) * 

4 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



020542 010146 

020544 010246 

020546 010346 

020550 010446 

020552 010546 



020554 016405 OOOOOOG 

020560 004737 021242' 

020564 016500 000004 

020570 004737 021316' 

020574 020027 000240 

020600 103516 

020602 020027 000277 

020606 101113 

020610 132700 000004 

020614 001510 



020616 013702 000152' 

020622 

020656 022227 031066 

020662 001065 

020664 016203 000004 

020670 001462 



020672 020327 001000 

020676 103424 

020700 010302 

020702 072227 177767 

020706 042702 177400 
020712 



020750 010437 000144' 

020754 042703 177000 

020760 010300 

020762 063700 000152' 



. SBTTL DOHNLC — Execute and handler load/fetch code 

If the handler being loaded has any Load-time execution code, read it 
into our luork buffer and execute it noiu. 

Inputs: 
R4 == Device index number of handler that is being loaded. 

Outputs: 
C-flag is set on return if load code signals an error during its 
execution. 



DOHNLC : 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP> 
R4, -<SP) 
R5, -(SP) 



MOV 


HANENT<R4),R5 


CALL 


HANMAP 


MOV 


4<R5),R0 


CALL 


HANUMP 


CMP 


RO, #240 


BLO 


7* 


CMP 


RO, #277 


BHI 


7* 


BITB 


#4, RO 


BEQ 


7* 



Examine 1st uord of handler to see if it could have any load-time code. 

Get address of handler entry point 

; ; Map Kpar5 to handler if mapped handler 

i i Get 1st instruction located at 4 in handler 

Restore normal mapping 

Is it a NOP? 

Br if can't be any load code 

Br if can't be any load code 
Is there load code? 
Br if not 

Handler may have load code. 

Read block of handler and get offset to load code. 

MOV WRKBUF, R2 i Get addr of our work buffer 

. READW #AREA, #1, R2/#256. . #0 i Read block of handler 

CMP <R2)+, tt-'^RHAN i Is this a new type handler? 

BNE 7* iBr if not 

MOV 4<R2)/R3 i Get offset to load code 

BEQ 7* iBr if there is none 

There is load-time code. 

Read into WRKBUF the portion of the handler with the load code. 

i Is load code in block of handler? 
i Br if yes 

i Get offset to start of load code 
; Convert to a block number 
/Clear all but block number 
#AREA, #1, WRKBUF, #512. , R2 ; Read 2 blocks from handler file 

Set up and execute it. 

Save current device index number 

Get offset within block of load code entry pt 

Get entry point offset 

Add base address 





CMP 




R3, #1000 




BLO 




1* 




MOV 




R3, R2 




ASH 




#-9. , R2 




BIC 




#"C377, R2 




. READW 


#AREA, #1. 


} The 


load 


cod 


e is now i 


1*: 


MOV 




R4, CURDEV 




BIC 




#--C777, R3 




MOV 




R3, RO 




ADD 




WRKBUF, RO 
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58 020766 

59 020772 

60 020776 

61 021002 

62 021006 

63 021010 

64 021014 

65 021020 

66 021022 
67 

68 
69 
70 

71 021024 

72 021032 

73 021036 

74 021040 
75 

76 
77 

78 021042 

79 021050 
SO 021054 
81 

82 
S3 

84 021056 

85 021060 

86 021062 

87 021064 

88 021066 

89 021070 



013701 
012702 
012703 
012705 
060405 
004737 
012704 
004710 
103407 



012737 
004737 
000241 
000406 



012737 
004737 
000261 



012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOC 
000004 
OOOOOOG 

021242' 
021072' 



MOV 


RPRVECRl 


MOV 


#MAXDEV*2, R2 


MOV 


#4, R3 


MOV 


#HANENT, R5 


ADD 


R4,R5 


CALL 


HANMAP 


MOV 


#LDREAD, R4 


CALL 


(RO) 


BCS 


2$ 



Fetch/load code ran ok. 
Turn off handler mapping. 



001400 
021316 



OOOOOOG 



7*: 



MOV 


#1400, @#KPAR6 


CALL 


HANUMP 


CLC 




BR 


9* 



Get pointer to GETVEC routine for Pro 
Get 2»# entries in device tables 
Set code saying this is load code 
Point to handler entry address vector 
Point to entry cell for this handler 

Map KparS to handler if it is a mapped 

Get pointer to Read routine 

Execute the load code 

Br if handler load code signaled an error 



j i Restore original mapping for RT-11 

Unmap the handler 

Clear the carry flag for return 



Error occurred in fetch/load code 



001400 OOOOOOG 2«: 
021316' 



MOV 

CALL 

SEC 

Finished 

9*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



#1400, e#KPAR6 
HANUMP 



; i Restore original mapping for RT~11 

Unmap the handler 

Set the carry flag for return 



<SP)+, R5 
(SP)+, R4 
<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 
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021072 
021074 
021076 



021100 
021104 
021106 
021112 
021116 
021122 
021126 



021140 
021172 



021174 
021200 



021204 
021210 
021214 
021220 
021224 
021226 



021232 
021234 
021236 
021240 



010046 
010446 
010004 



105737 
001402 
013746 
013746 
013746 
013746 
012737 



103420 



013704 
004737 



012637 
012637 
012637 
105737 
00 1 402 
012637 



000241 
012604 
012600 
000207 



SBTTL LDREAD 



Perform I/O for handler load code 



This routine performs Read operations for handler load code. 
It simulates the operation of the bootstrap read routine. 
When called* Channel 1 must be open to the handler file. 

Inputs: 
RO = Block number within handler file to be read. 
Rl = Number of words to read. 
R2 = Buffer address 

Outputs: 
C-flag is set if a read error occurs 



LDREAD: MOV 
MOV 
MOV 



RO, -(SP) 
R4, -<SP) 
RO, R4 



; / I 
i > i 



Get starting block number 



Save current mapping information 



OOOOOOG 

OOOOOOG 
0000000 
OOOOOOG 
OOOOOOG 
001400 



OOOOOOG 



021134 004737 021316 



TSTB MEM256 

BEQ 1$ 

MOV @#SR3MMR , - ( SP ) 

1*: MOV @#SR0MMR, -<SP) 

MOV e#KPAR5, -(SP) 

MOV e#l\PAR6, -<SP) 

MOV #1400, @#KPAR6 

Turn off handier mapping 

CALL HANUMP 



i Does machine have > 256? 

i Br if not 

; Save extended memory address register 

i Save memory mapping 

; Save current KPAR5 mapping 

; Save current KPAR6 mapping 

; Restore original mapping for RT-11 



; Turn off handler mapping 



Read the requested data from the handler 

. READW #AREA, #1, R2, Rl, R4 i Read the blocks 
BCS 9* i Br if read error 

Restore handler mapping 



000144' 
021242' 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV 
CALL 



CURDEV, R4 
HANMAP 



Restore mapping information 



2*: 
9*: 



MOV 

MOV 

MOV 

TSTB 

BEG 

MOV 

Finished 

CLC 
MOV 
MOV 
RETURN 



(SP)+, @#KPAR6 

(SP)+, @#KPAR5 

( SP ) +, e#SROMMR 

MEM256 

2* 

(SP)+, e#SR3MMR 



; Get current device index 
; ; ; Map Kpar5 if necessary 



i ; j Restore KPAR6 mapping 

i i ; Restore KPAR5 mapping 

;; i Restore memory mapping 

i ; i Does machine have > 256? 

i ) } Br if not 

; i i Restore extended memory address register 



(SP)+, R4 
(SP)+, RO 



Signal success on return 



TSINIT — TSX startup initializ MACRO V05. 05 Friday 20-Jan-e9 11:30 Page 63 
HANMAP — Set up KPAR5 to access a mapped handier 



1 

P 

3 

4 

5 

6 

7 

8 

9 

10 

li 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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43 
44 
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53 
54 
55 
56 
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. SBTTL HANMAP 



Set up KPAR5 to access a mapped handler 



021242 



021242 



021250 012737 0000000 OOOOOOG 



021256 005764 OOOOOOG 
021262 001403 



This routine is called to determine if a handler is mapped and if so 

to turn on mapping and set up KPAR5 to access the mapped handler. 

If the handler is not mapped, mapping is not turned on and KPAR5 is 

not altered. 

Interrupts are left disabled by this routine. 

In addition to setting up mapping* this routine also changes the RMON 

pointer to point to the TSX~Plus simulated RMON vector. 

Inputs: 
R4 = Device index number 

HANMAP : 

i 

i Disable interrupts 

i 

DISABL iiiDisable interrupts 

i 

i Change RMON pointer to point to TSX-Plus vector 

i 

MOV #MONVEC, @#RMON ; j i Say TSX-Plus is the monitor 
See if this handler is mapped 



TST HANPAR<R4) 
BEQ 9* 

This handler is mapped. 

Set up mapping to access it. 



i i i Is this handler mapped? 
i i } Br if not 



021264 016437 OOOOOOG OOOOOOG 

021272 052737 OOOOOOG OOOOOOG 9$: 

021300 105737 OOOOOOG 

021304 001403 

021306 052737 OOOOOOG OOOOOOG 



MOV 

BIS 

TSTB 

BEG 

BIS 



HANPAR(R4). @#KPAR5i i i Map KPAR5 to the handler code 



#MMENBLi @#SROMMR 

MEM256 

10* 

#EMMAP, e#SR3MMR 



Enable memory mapping 

Does machine have > 256KB? 

Br if not 

Enable extended memory addressing 



021314 000207 



Finished 
10*: RETURN 

. SBTTL HANUMP 



Turn off memory mapping to a handler 



This routine is the companion to HANMAP. It turns off memory mapping 
and restores KPAR5 to its normal mapping value. 

Enter with interrupts disabled. Interrupts are enabled on return. 
This routine also changes the RMON pointer back to RT-11. 



021316 



HANUMP: 

Turn off memory management 



021316 105737 OOOOOOG TSTB 

021322 001403 BEQ 

021324 042737 OOOOOOG OOOOOOG BIC 

021332 042737 OOOOOOG OOOOOOG 1*: BIC 

021340 012737 001200 OOOOOOG MOV 



MEM256 

1* 

#EMMAP. e#SR3MMR 

#MMENBL/ e#SROMMR 

#1200, e#KPAR5 



(Does machine have > 256KB7' 

i Br if not 

i Turn off extended memory addressing 

i Turn off memory mapping 

/Reset KPAR5 to its normal mapping 
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58 
59 
60 



61 021346 013737 000046' OOOOOOG 

62 } 

63 i Enable interrupts 

64 i 

65 021354 ENABL 

66 } 

67 ; Finished 

68 ; 

69 021362 000207 RETURN 



Restore RMON pointPT to RTll 

MOV RTMNVC, @#RMON j ;; Reset RMON pointer 



Enable interrupts 



€ 
€ 



€ 
C 
t 
i 
i 
€ 
4 



TSINIT - 
HANUMP - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Turn off memory mapping to a handler 



021364 005001 

021366 000401 

021370 005002 

021372 000261 

021374 000207 



• IF EQ, <PR0ASM-1> ; No handler XM support if Pro-only 
. SBTTL FNDHRB. HANXMR Inoperative Pro versions 

None of the current device handlers on the Pro require handler XM 
region support. Make sure they return intelligent errors if 
someone does try to use them. 



. ENABL LSB 

FNDHRB: CLR Rl 

BR 1* 

HANXMR: CLR R2 
1*: SEC 

RETURN 

. DSABL LSB 



i Point to next region control block (none) 
i Go signal error and return 

i Return largest possible region size <none) 
; Signal error on request 



.IFF i EQ, <PR0ASM-1> ; Include handler XM support for 11 versions 
.SBTTL FNDHRB — Try to find a handler global region 

This routine is called to try to locate an allocated XM region with 

a specified name. 

If a region control block with the specified name cannot be found* 

the address of a free one is returned and the specified name is stored 

into the free block. 

Inputs: 
R5 = Pointer to 2-uiord cell containing Rad50 name of region to be found. 

Outputs: 
C~flag cleared ==> Found the specified RCB. 

Rl = Address of the RCB 
C-flag set ==> Could not find the specified RCB. 

Rl = Pointer to a free RCB or if no available RCB's. 

FNDHRB: MOV R2, -<SP) 

Search for specified RCB and also remember if we see a free RCB 

; Say no free RCB found 
i Point to start of RCB area 
;Skip over -1 word at front 
1*: TST (Rl) iWhat is the status of this RCB 

i Br if this is not a free RCB 
i Remember address of a free RCB 



2*: 



3*: 



CLR 


R2 


MOV 


HANRCB/ Rl 


TST 


(Rl) + 


TST 


(Rl) 


BNE 


2* 


MOV 


R1.R2 


BR 


3* 


CMP 


(Rl),#-1 


BEQ 


4* 


CMP 


(R5)>6<R1) 


BNE 


3* 


CMP 


2(R5), lO(Rl) 


BEQ 


6* 


ADD 


#12, Rl 


BR 


1* 



Are we at the end of the list? 

Br if yes 

Compare the names 

Br if don't match 

Compare 2nd half of name 

Br if found the RCB we were searching for 

Point to the next RCB 

Continue searching 



We could not find the specified RCB. 

If there was a free one, initialize the name. 



TSINIT — TSX 
FNDHRB, HANXHR 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



4*: 


MOV 




R2, Rl 




BEQ 




54 




MOV 




(R5),6(R1) 




MOV 




2(R5), lO(Rl) 




ADD 




CURDEV, lO(Rl) 


5*: 


SEC 






• 


BR 




9* 


> 

i We 
6*: 


found 

CLC 


the 


RCB 


/ Finished 






i 
9*: 


MOV 




(SP)+. R2 




RETURN 





Was there a free RCBT' 

Br if not 

Set name in the RCB 

<2nd word of name) 

Make name unique to device 

Signal that we did not find the RCB 



Signal success on return 



TSINIT — TSX 
FNDHRB, HANXMR 

i 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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SBTTL HANXMR 



Allocate Xli region during handler load 



This routine can be called by a handler as its is being loaded to 
allocate an XM region for the handler. 

Inputs: 
R2 = Number of 64-byte units needed for XM region 

Outputs: 
C-flag cleared ==> Successfully allocated a region 

Rl s= 64-byte address of base of allocated region 

R2 = Requested size 
C-flag set ==> Could not allocate the region 

R2 = Largest available region size 

Notes: FMEMLO and FMEMHI are used by this routine to indicate the 
bottom and top of the free memory area that can be allocated. 
The allocation is done from the top of free memory downward. 
FMEMHI is updated to have the new top of free memory after the 
allocation has been done. 



HANXMR: MOV 



RO, -(SF) 



MOV 


FMEMHI. RO 


SUB 


FMEMLO, RO 


CMP 


R2, RO 


BHI 


8* 



Get the total amount of free memory space available now 
and see if the requested region can be allocated. 

Top of free memory 

-Base of free memory 

Do we have room for the requested region? 

Br if not 

There is room for the region so allocate it from the top of memory 

.Allocate the region 

iReturn the address of the base of the region 

.Signal success on return 

We are not able to allocate the region. 

Return with C-flag set and the size of the largest possible region in R2. 



SUB 


R2. FMEMHI 


MOV 


FMEMHI, Rl 


CLC 




BR 


9* 



8*: 



MOV 
SEC 

Finished 



RO, R2 



; Get the size of the largest possible region 
; Signal failure on return 



9*: 



MOV 
RETURN 



(SP)+, RO 



I 
( 
I 
I 

i 
f 
I 
I 
< 

I 

4 



. ENDC i EQ, <PROASM-i: 
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1 
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12 

13 

14 

15 
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17 
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19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
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31 

32 

33 

34 

35 

36 

37 

38 

39 
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41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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•IF NE, <PR0ASM-1> ;If assembling for PDP-11 

• SBTTL SETIilO — Set up information about mapped devices 

SETMID is called to set up information about which devices have to have 
their I/O mapped through system buffers. I/O mapping is done for DMA 
devices with 18-bit controllers being used on Q-bus systems with more 
than 256Kb of memory. 
The DX*MAP flag is set in the DVFLAG word for devices that require mapping. 

Inputs: 
R5 = Pointer to low-memory free area 

Outputs: 
MIOFLAG = 0==>I/0 mapping not required for any device* 

l==>I/0 mapping required for some device. 
R5 = Pointer to new low-memory free area. 

SETMIO: MOV R1,-(SP) 

Determine if this machine requires mapping at all 

TST #MIODBG ; Are we debugging mapped I/O system? 

BNE 2* ; Br if yes 

BIT #EXTLSI» ICONFG ils this a Q-bus machine with more than 256Kb'> 

BNE 2* ;Br if yes 

This is not a Q-bus system with more than 256Kb. 
Mapping is not required at all. 

MOV #2, Rl i Get initial device index number 

1*: BIG #DX*MAP,DVFLAG<R1) i Clear mapped-I/0 flag 

ADD #2, Rl iGet next device index 

CMP R1,NUMDEV ; More to do? 

BLOS 1* ;Br if yes 

BR 9* 

This is a Q-bus system with more than 256Kb. 
See if any devices have requested mapped I/O. 

Clear composite flag word 
Initialize device index number 
Combine flags from all devices 
Get next device index number 
Checked all devices? 
Br if not 

Does any device require mapping? 
Br if not 



3$: 



CLR 


RO 


MOV 


#2, Rl 


BIS 


DVFLAG(R1),R0 


ADD 


#2, Rl 


CMP 


Rl, NUMDEV 


BLOS 


3* 


BIT 


#DX*MAP. RO 


BEQ 


9* 



I/O mapping is required 
INCB MIOFLG 



Remember that mapping is required 



Zero the area where we will build the control structures 

MOVB VMIOBF, Rl ; Get # buffers wanted 

MUL #MI**SZ>R1 ; Times size for each control block 

ADD #MIONWB«MW**SZ. Rl; Add space for MIO wait blocks 



4 
i 
i 
I 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 021376 

93 



4«: 



ASR 
MOV 
CLR 
SOB 



Rl 

R5, RO 
(R0) + 
Rl, 4* 



; Get # words to zero 

i Get pointer to start of area 

i Zero the entire area 



Allocate and initialize the control structures 



5*: 



6*: 



7*: 



MOV 

MOVE 

MOV 

ADD 

DEC 

BLE 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

SOB 

ADD 

Finished 



R5, MIOBHD 

VMIOBF, RO 

R5, Rl 

#MI**SZ,R1 

RO 

6$ 

Rl, MI*LNK<R5) 

Rl, R5 

5* 

Rl, R5 

R5, MIOWHD 

#MI0NWB-1, RO 

R5, Rl 

#MW**SZ,R1 

Rl, MW*LNK(R5) 

Rl, R5 

RO, 7* 

#MW**SZ, R5 



000207 



9*: MOV (SP)+, Rl 
RETURN 

.IFF ; NE, <PR0ASM-1> 

Define dummy routine for Pro 

SETMIO: RETURN 

. ENDC i HE. <PR0ASM~1> 



Start of are 
Get # buffer 
Get pointer 
Get pointer 
Need to link 
Br if not 
Set pointer 
Advance poin 
See if more 
Set pointer 
Start of ujai 
Get # Ufa it b 
Get pointer 
Get pointer 
Set pointer 
Advance poin 
Loop if more 
Allocate spa 



control blks 



a for I/O mapping 
s wanted 

to current control block 
to next control block 
more together? 

to next control block 

ter to next block 

to do 

past last block 

t bloc ks 

locks wanted - 1 

to current block 

to next block 

to next wait block 

ter to next block 

to allocate 
ce for last block (with link) 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 021400 

16 021402 

17 021404 
IS 021406 
19 021410 
20 

21 

22 

23 021412 

24 

25 

26 

27 

28 021416 

29 021422 

30 021426 

31 021432 

32 021436 

33 021442 

34 021444 

35 021450 

36 021454 

37 021460 

38 021462 

39 021464 

40 021470 

41 021472 

42 021474 

43 021500 

44 021504 

45 021510 

46 021512 

47 021516 

48 021522 
49 

50 
51 

52 021524 

53 021530 

54 021532 

55 021536 

56 021540 
57 



010146 
010246 
010346 
010446 
010504 



004737 021610' 



062704 
042704 
010437 
012702 
005762 
001423 
016200 
016000 
012701 
020021 
001404 
020127 
103773 
000407 
005262 
016200 
072027 
060004 
062702 
020237 
103745 



020427 
103021 
012705 
160405 
072527 



000077 

000077 

000140' 

000516' 

000000 

000004 
0000000 
000746 ' 



000754 



000002 
000000 
000006 

000006 
000744 ' 



025266 ' 
025350 ' 
177772 



. SBTTL OVLPOS — Determine which overlays go over TSINIT 

OVLPOS is called to determine which system overlays are to be placed 
over the TSINIT code < spec i f ical ly, between ©OVLBAS and INITOP). 

Inputs: 
R5 = Base address in TSINIT where overlays may be loaded. 

Outputs: 
Overlay segment information is set up in OSTABL. 

OS*FLe<seg) = 0==>Load seg into high memoryi l==>Load over TSINIT. 
OVLBAS = Address of location within TSINIT where overlays start. 
R5 = Pointer past last overlay loaded over TSINIT. 



OVLPOS: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, R4 



; Get address where we may load overlays 

Build the table that holds information about the overlays 

CALL OVLBLD i Build overlay information table 

First determine how much space will be used by those overlays that are 
forced to be loaded over TSINIT. 



1$: 



6*: 



4*: 



?*: 



ADD 

BIC 

MOV 

MOV 

TST 

BEQ 

MOV 

MOV 

MOV 

CMP 

BEQ 

CMP 

BLO 

BR 

INC 

MOV 

ASH 

ADD 

ADD 

CMP 

BLO 



#63. , R4 

#77, R4 

R4, OVLBAS 

#OSTABL> R2 

0S*SIZ<R2) 

2* 

0S*0VL<R2),R0 

0. ADR(RO}, RO 

#LOWOVL, R 1 

RO. (Rl) + 

4* 

R 1 , #LOWEND 

6$ 

2* 

0S*FLG<R2) 

0S*SIZ<R2),R0 

#6/R0 

RO, R4 

#OS*«SZ, R2 



OSLAST 



1* 



; Bound address to 64-byte boundary 

Remember address where we load overlays 

Point to start of table 

Is this overlay to be loaded? 

Br if not 

Point to linker-built entry 

Get Rad50 segment ID 

Point to table of overlays to go over TSINIT 

Must this overlay go over TSINIT? 

Br if yes 

End of low-overlay table? 

Br if not 

This overlay is not forced over TSINIT 

Set flag saying load over TSINIT 

Get # 64-byte blocks needed for overlay 

Get # bytes needed for overlay 

Advance address within TSINIT 

Point to entry for next segment 

Have we finished? 

Loop if not 



Determine how much memory space is available in TSINIT for other overlays 

; Any space left for other overlays? 

i Br if not 

i Point to top of overlay area 

j Total space available for overlays 

; Convert to # 64-byte blocks 



CMP 


R4, #INIT0P-50 


BHIS 


9* 


MOV 


#INITOP, R5 


SUB 


R4, R5 


ASH 


#-6, R5 
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58 
59 
60 
61 

62 021544 

63 021550 

64 021552 

65 021556 

66 021562 

67 021564 

68 021570 

69 021572 
70 

71 
72 

73 021574 

74 021576 

75 021600 

76 021602 

77 021604 

78 021606 



004737 
103411 
005262 
016200 
160005 
072027 
060004 
000764 



010405 
012604 
012603 
012602 
012601 
000207 



023020 

000002 
000000 

000006 



Nou) begin loop which determines which other overlays go over TSINIT. 
We do this in the order of largest to smallest to try to fill 
the overlay area as completely as possible. 

3*: CALL OVLTRY i Try to find largest overlay that will fit 

Br if no more overlays will fit 
Remember to load over TSINIT 
Get # 64-byte blocks needed for overlay 
Reduce remaining free space in TSINIT 
Get # bytes needed for overlay 
Advance overlay address in TSINIT 
See if we can find more segments to load 



9*: 



CALL 


OVLTRY 


BCS 


9* 


INC 


0S*FLG<R2) 


MOV 


0S*SIZ<R2),R0 


SUB 


RO, R5 


ASH 


#6, RO 


ADD 


RO, R4 


BR 


3* 


Finished 




MOV 


R4, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





; Return top-of-overlay address in R5 
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3 
4 
5 
6 
7 
8 
9 

10 021610 

11 021612 

12 021614 
13 

14 
15 

16 021616 

17 021622 
IS 021656 

19 021660 

20 021664 
21 

22 
23 

24 021666 

25 021674 

26 021702 

27 021706 
28 

29 
30 

31 021712 

32 021716 

33 021722 

34 021726 

35 021732 

36 021736 

37 021742 

38 021746 

39 021752 

40 021754 
41 

42 
43 

44 021760 

45 021762 

46 021764 

47 021766 
48 

49 
50 

51 021770 

52 021776 

53 022004 



103444 
016201 
001012 



012737 
012737 
012701 
010137 



012703 
010163 
005063 
004737 
010263 
062703 
062701 
021127 
001361 
010337 



012603 
012602 
012601 
000207 



. SBTTL OVLBLD — Build overlay information table 

OVLBLD is called to build an overlay information table that is used 
by TSINIT while loading TSX overlays into memory. 

Outputs: 
Overlay segment information is set up in OSTABL. 
OSLAST = Pointer past last entry in OSTABL. 



010146 
010246 
010346 



013702 000152 



OVLBLD: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2. -<SP) 
R3, -<SP) 



000064 



Read 1st block of SAV file to get pointer to overlay table 

MOV WRKBUF, R2 J Point to work buffer 

. READW #AREA, #17, R2, #256. , #0 ; read first block of the save file 

BCS 22* i Br if error on read 

MOV 64(R2)iRl ; point to the overlay table 

BNE 15* i br if overlays exist 

Must be verion 3B overlays structure at absolute location. 



000137 001000 
0000000 001002 
001104 
OOOOOOG 



000516' 

000004 

000002 

022130' 

000000 

000006 

000006 

004537 



MOV #137, @# 1000 

MOV #*OVRH, e#1002 

MOV #1104, Rl 

MOV R 1 , OVRADD 



i position jump instrucion over 3b ovly handler 

i position overlay intercept location 

i point to the overlay table 

i save the address of the overlay table 



Initialize the table that holds information about the overlays 



000744 ' 



15*: MOV 
11*: MOV 
CLR 
CALL 
MOV 
ADD 
12*: ADD 
CMP 
BNE 
MOV 

Finished 

MOV 
MOV 
MOV 
RETURN 



#OSTABL, R3 

Rl, 0S*0VL<R3) 

0S*FLG(R3) 

ALCOVL 

R2, 0S*SIZ<R3) 

#OS**SZ, R3 

#6, Rl 

<R1>,#4537 

11* 

R3, OSLAST 



<SP)+, R3 
(SP)+, R2 
< SP ) +, R 1 



Point to table for overlay info 

Save pointer to overlay control block 

Assume seg uill be loaded in high memory 

Determine if uie should load this overlay 

Remember total size of overlay+data 

Point to next overlay table entry 

find the next region 

compare with a <JSR R5, *OVRH> instruction 

Br if not at end 

Save pointer past last overlay table entry 



000137 004134 



Error — Read error occured while reading overlay table 

22*: . PRINT #TSXHD 
. PRINT #RDERR 
JMP INISTP 



I 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 022010 

13 022012 

14 022014 

15 022016 
16 

17 

18 

19 

20 022022 

21 

22 



23 
24 



022036 
022042 

25 022046 

26 

27 

28 

29 022050 

30 022054 

31 022060 

32 022062 

33 022066 

34 022070 

35 022074 

36 022100 

37 022104 
38 

39 
40 

41 022106 

42 022112 

43 022114 

44 022120 

45 022122 

46 022124 

47 022126 



012703 
004737 
010263 
062703 
020337 
103767 



012702 
005762 
001405 
005762 
001002 
004737 
062702 
020237 
103763 



013700 
160500 
010037 
012603 
012602 
012601 
000207 



. SBTTL GETMAP — Load any mapped system code regions 

GETMAP is called to load those system overlays that are placed 
in high memory. 

Inputs: 

R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = New 64-byte block number of top of free memory. 



010146 
010246 
010346 
010537 OOOOOOG 



GETMAP : MOV 
MOV 
MOV 
MOV 



R 1 1 - < SP ) 
R2, -(SP) 
R3, -(SP) 
R5, SMRSIZ 



Save memory pointer at start of allocation 



000516' 
022274 ' 
000000 
000006 
000744 ' 



MOV 


#OSTABL. R3 


CALL 


OPTOVL 


MOV 


R2, 0S*BIZ(R3) 


ADD 


#OS**SZ> R3 


CMP 


R3, OSLAST 


BLO 


1* 



000516' 
000000 

000002 

023116' 
000006 
000744 ' 



OOOOOOG 
OOOOOOG 



Now that most of the system initialization is completed* we must check 
again to see which overlays need to be loaded. 

Point to 1st overlay table entry 
1*: CALL OPTOVL i See if this segment should be loaded 

Save # 64~byte blocks needed for overlay 
Point to next overlay table entry 
Checked all entries in overlay table? 
Br if not 

Load those overlays that go into high memory 

Point to 1st overlay entry 

Is this overlay segment wanted? 

Br if not 

Load over TSINIT or into high memory? 

Br if load over TSINIT 

Load overlay into high memory 

Point to next overlay table entry 

Have we done all overlays? 

Loop if not 



; Get memory pointer at start of allocation 

iCalc amt of space allocated 

; Save total space used for mapped regions 



MOV 


#OSTABL, R2 


3*: TST 


0S*SIZ(R2) 


BEQ 


4* 


TST 


0S*FLG(R2) 


BNE 


4« 


CALL 


GETOVL 


4*: ADD 


#OS«*SZ, R2 


CMP 


R2, OSLAST 


BLO 


3* 


; Finished 




19*: MOV 


SMRSIZ. RO 


SUB 


R5. RO 


MOV 


RO, SMRSIZ 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 
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1 
2 
3 
4 
5 
6 
7 
& 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



022130 010146 



022132 016301 000004 



022136 013702 000152' 

022142 

022200 103415 



022202 016261 000002 OOOOOOG 



022210 016102 OOOOOOG 
022214 006302 
022216 020227 020000 
101014 



. SBTTL ALCOVL — Allocate space for a system overlay region 

ALCOVL is called to determine if a system overlay region is wanted 
(based on sysgen options)/ and if it is wanted to determine houi 
much space is needed for the code and data. 

Inputs: 
R3 = Pointer to overlay table entry (OSfxxx) 

Outputs: 
C-flag cleared ==> This segment is to be loaded. 
C-flag set ==> Do not load this overlay segment. 
R2 = # 64-Byte blocks needed for segment including data areas within it. 

ALCOVL: MOV R1,-<SP) 

Get pointer to linker-build overlay entry for segment 

MOV 0S*0VL(R3), Rl » Get pointer to linker-built entry for seg 

Read in the first block of the overlay segment 

MOV WRKBUF, R2 ; Point to work buffer 

. READW #AREA, #17, R2, #256. . 0. BLK(Rl) i read the first block 

BCS 3* * Br if read error 

Save the 3 character RadSO segment ID in the 0. ADR cell of the 
linker-built overlay table entry for this segment. 

MOV 2(R2)/ 0. ADR<R1) ; save the radSO overlay identifier 

Make sure the segment is not larger than SKb 

i get the word count of the code region 
i convert to byte count 
» check for 8kb overflow 
i Br if region is too big 

Don't load some optional segments if features were not selected 
in TSGEN. 



MOV 


0. SIZ(R1),R2 


ASL 


R2 


CMP 


R2, #20000 


BHI 


21* 



004737 022274 



CALL 



OPTOVL 



i See if we want to load this segment 



022230 012601 
022232 000207 



022234 
022242 
022250 000137 004134' 



Finished 

The C-flag is set or reset by OPTOVL. 

MOV (SP)+, Rl 
RETURN 



Error 



Error on reading from SAV file 



3*: -PRINT #TSXHD 
.PRINT #RDERR 
JMP INISTP 



} Print heading 

; Read error 

iAbort initialization 



Error 



Insufficient memory space to load run-time systems 
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58 022254 

59 022262 

60 022270 



21*: 



000137 004134' 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#TSXSIZ 

INISTP 



PRINT HEADING 
PRINT ERROR MESSAGE 
ABORT INITIALIZATION 
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— Check for optional system overlay regions 



022274 010346 
022276 010446 
022300 010546 



022302 016305 000004 
022306 016504 OOOOOOG 



022312 016502 
022316 006302 



OOOOOOG 



022320 012700 022346' 

022324 020420 

022326 001406 

022330 005720 

022332 020027 022436 ' 

022336 103772 

022340 000137 022756' 



022344 000130 



022346 
022346 
022352 
022356 
022362 
022366 
022372 
022376 



. SBTTL OPTOVL — Check for optional system overlay regions 

OPTOVL is called to determine if a specific system overlay is or is 

not to be loaded based on sysgen options. 

This routine may also add space for buffers to the overlay regions size. 

Inputs: 
R3 = Pointer to overlay table entry for segment <OS*xxx) 

Outputs: 
C-flag cleared ==> Load this overlay. 
C-flag set ==> Do not load this overlay. 
R2 = # 64-byte blocks needed for code + data for the segment. 



OPTOVL: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -<SP) 
R5, -(SP) 



Get the name of the overlay segment 



MOV 0S«0VL(R3),R5 
MOV 0. ADR<R5),R4 



jGet pointer to linker-built entry 
;Get name of the segment 



Get size of code portion of overlay segment 



MOV 0. SIZ(R5),R2 
ASL R2 



; Get # words needed by code portion of seg 
i Convert to # bytes 



See if this is an optional segment that uie need to deal with specially 



MOV #OVLLST, RO 

1*: CMP R4, (R0) + 

BEQ 2* 

TST <R0)+ 

CMP RO. #OVLEND 

BLO 1* 

JMP OOXYES 



Point to overlay name list 

Found name of overlay? 

Br if yes 

No — Skip over address word 

Checked all names in the list? 

Loop if not 

Load this overlay 



Branch off to processing routine 

2*: JMP e(RO)+ i Enter processing routine for the overlay 

Table of overlay names and processing routines 

. MACRO OVLTBL NAME 

. RAD50 /'NAME'/ 

. WORD OOR 'NAME 

. ENDM OVLTBL 



OVLLST: 



OVLTBL USR 

OVLTBL SPL 

OVLTBL SP2 

OVLTBL LOK 

OVLTBL MSG 

OVLTBL SWP 

OVLTBL PLS 



TSUSR — File management 

TSSPOL — Spooling system 

TSSPL2 — Spooler flag pages 

TSLOCK — Shared file record locking 

TSMSG — Inter-job message communication 

TSSWAP — Job swapper 

TSPLAS — PLAS support 



i 
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022402 
022406 
022412 
022416 
022422 
022426 
022432 
022436 



022436 
022442 
022446 
022450 



022452 
022456 
022460 
022464 
022470 
022474 
022500 
022502 
022506 
022510 



022512 
022516 
022520 



022522 
022526 
022530 
022534 
022536 
022542 



022544 
022550 
022552 
022556 
022560 
022564 
022570 
022572 
022576 
022600 
022604 



013703 
070327 
060302 



005727 
001534 
062702 
013703 
062703 
072327 
005203 
042703 
060302 
000522 



005727 
001514 
000516 



005737 
001510 
005737 
001110 
162702 
000505 



013703 
001477 
070327 
060302 
013703 
070327 
060302 
013703 
005203 
042703 
062703 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOC 
OOOOOOG 
000007 
177775 

000001 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000001 
OOOOOOG 



iday 20- 


-Jan-89 


ons 




OVLTBL 


SLE 


OVLTBL 


WIN 


OVLTBL 


MIO 


OVLTBL 


CLO 


OVLTBL 


DBG 


OVLTBL 


CSH 


OVLTBL 


DMP 
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TSSLE 

TSUI IN 

TSMIO 

TSCLO 

TSDBUG 

TSCASH 

TSDUMP 



— Single line editor 

— Display ufindoui management 

— Mapped I/O 

— CL handler 

— Program debugger 

— Data caching 

— Crash dump generator 



OVLEND: 

File management 



OORUSR: MOV 
MUL 
ADD 
BR 



VNFCSH, R3 
#FC**SZ, R3 
R3>R2 
00 X YES 



Spooling system 



OORSPL: TST 
BEQ 
ADD 
MOV 
ADD 
ASH 
INC 
BIC 
ADD 
BR 



#SPLND 

OOXNO 

#<SPLNB#51i 

NSPLBL, R3 

#7, R3 

#-3. R3 

R3 

#1,R3 

R3, R2 

00 X YES 



RJ 



Spooler flag pages? 



00RSP2: TST 
BEQ 
BR 



#SPLND 

OOXNO 

OOXYES 



Record locking system 

OORLOK: TST VMXSF 

BEQ OOXNO 

TST VNUMDC 

BNE OOXYES 

SUB #DCCSIZ,R2 

BR OOXYES 

Message communication system 

OORMSO; MOV VMAXMCi R3 

BEQ OOXNO 

MUL #MB**SZ, R3 

ADD R3, R2 

MOV VMXMRB, R3 

MUL #MR**SZ, R3 

ADD R3, R2 

MOV VMSCHR, R3 

INC R3 

BIC #1,R3 

ADD #MU*TXT. R3 



Get # file cache entries 
Multiply by size of each entry 
Allocate space for directory cache 
Load the segment 



Are there any spooled devices? 

Br if not 

Reserve room for spool buffers 

Get # blocks for spool file 

Bound up to byte boundary 

Divide by 8 to get # bytes for table 

Round up to word boundary 

Add space for spool file allocation table 
Load the segment 



Are there any spooled devices? 
If not* don't load overlay 
Load the segment 



Any shared files? 

Br if not 

Shared file data caching uianted? 

Br if yes 

Reduce sire of segment - Leave out cache cod( 

Load the segment 



Is message communication facility uanted? 

Br if not 

Space for message channel blocks 

Number of message request blocks 
Times size of request block 

Max # chars in a message 
Bound up to word 
Reserve whole number of words 
Plus space for message header 



( 
i 
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115 


022610 


070337 


OOOOOOG 


116 


022614 


060302 




117 


022616 


000457 




lis 








119 








120 








121 


022620 


013703 


OOOOOOG 


122 


022624 


001451 




123 


022626 


062703 


000021 


124 


022632 


072327 


177775 


125 


022636 


060302 




126 


022640 


000446 




127 








128 








129 








130 


022642 


105737 


OOOOOOG 


131 


022646 


001440 




132 


022650 


000442 




133 








134 








135 








136 


022652 


105737 


OOOOOOG 


137 


022656 


001434 




138 


022660 


000436 




139 








140 








141 








142 


022662 


013703 


OOOOOOG 


143 


022666 


001430 




144 


022670 


070327 


OOOOOOG 


145 


022674 


060302 




146 


022676 


000427 




147 








148 








149 








150 


022700 


105737 


OOOOOOG 


151 


022704 


001421 




152 


022706 


000423 




153 








154 








155 








156 


022710 


005727 


OOOOOOG 


157 


022714 


001415 




158 


022716 


000417 




159 








160 








161 








162 


022720 


105737 


OOOOOOG 


163 


022724 


001411 




164 


022726 


000413 




165 








166 








167 








168 


022730 


005737 


OOOOOOG 


169 


022734 


001405 




170 


022736 


000407 




171 
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MUL 
ADD 
QR 

PLAS support 

OORPLS: MOV 
BEQ 
ADD 
ASH 
ADD 
BR 

Job swapper 



OORSWP: TSTB 
BEQ 
BR 



VMXMSG, R3 
R3, R2 
OOXYES 



VPLAS, R3 
OOXNO 
#17. ,R3 
#-3, R3 
R3, R2 
OOXYES 



VSWPFL 

OOXNO 

OOXYES 



Single line editor 



OORSLE: TSTB 
BEQ 
BR 



VSLEDT 

OOXNO 

OOXYES 



Display windows 



OORWIN: MOV 
BEQ 
MUL 
ADD 
BR 

Mapped I/O 

OORMIO: TSTB 
BEQ 
BR 

CL handler 



OORCLO: TST 
BEQ 
BR 



VMXWIN, R3 
OOXNO 

#DW**SZ, R3 
R3, R2 
OOXYES 



MIOFLG 

OOXNO 

OOXYES 



ttCLTOTL 

OOXNO 

OOXYES 



Program debugger 



OORDBG: TSTB VDBFLG 

BEQ OOXNO 

BR OOXYES 

Data caching 

OORCSH: TST CSHALC 

BEQ OOXNO 

BR OOXYES 



; Times maximum number of messages 
/Space for message buffers 



i PLAS support wanted? 

; Br if not 

; Bound up # blocks 

i Get # bytes needed for swap file bit map 

; Reserve room for swap file bit map 

; Load the segment 



; Is this a swapping system? 

i Br if not 

i Br if yes — Load the segment 



/• Is SL editor wanted? 

i Br if not 

; Load the segment 



j Are any display windows wanted? 

j Br if not 

; Amt of space needed for window control blks 

>Add to size of overlay 

i Load the segment 



J Is I/O mapping needed? 

; Br if not 

i Load the segment 



i Any I/O 1 ines? 

J Br if not 

i Yes* load the segment 



i Is the program debugger wanted? 

/Br if not 

/Load this segment 



/ Is data caching wanted? 

/Br if not 

/Load this segment 
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172 








i Cras 


h dump 


generator 


173 








/ 






174 


022740 


105/3/ 


OOOOOOG 


OORDMP: 


TSTB 


VSYDMP 


175 


022744 


001401 






BEQ 


OOXNO 


176 


022746 


000403 






BR 


OOXYES 


177 














178 








; Don' 


t load 


this segmen 


179 














180 


022750 


005002 




OOXNO: 


CLR 


R2 


181 


022752 


000261 






SEC 




182 


022754 


000415 






BR 


OOXFIN 


183 














184 








/ Load 


this seqment 


185 














iS6 


022756 


005202 




OOXYES: 


INC 


R2 


187 


022760 


042702 


000001 




BIC 


#1,R2 


188 


022764 


020227 


020000 




CMP 


R2, #8192. 


189 


022770 


101402 






BLOS 


1* 


190 


022772 


012702 


020000 




MOV 


#8192. ,R2 


191 


022776 


062702 


000077 


1*: 


ADD 


#63. , R2 


192 


023002 


072227 


177772 




ASH 


#-6, R2 


193 


023006 


000241 






CLC 




194 








i 






195 








; Finished 




196 








f 






197 


023010 


012605 




OOXFIN: 


MOV 


(SP)+, R5 


198 


023012 


012604 






MOV 


<SP)+, R4 


199 


023014 


012603 






MOV 


<SP)+, R3 


200 


023016 


000207 






RETURN 





30 Page 71-3 



; Is dump facility wanted? 
; Br if not 
i Br if yes 



Say no space needed for overlay 
Signal don't load the segment 



iMake sure size is even 

»Don't allow code + data to exceed 8Kb 

j Br if ok 

;Note* init code in segment will truncate dat 

i Convert to # 64-byte blocks 



Signal to load the segment 
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cn- 



023020 010346 



023024 
023030 
023034 
023036 
023042 
023044 
023050 
023052 
023054 
023056 
023064 
023066 
023070 
023074 
023100 



023102 
023104 
023106 
023110 
023112 
023114 



005002 
012703 
005763 
001415 
005763 
001012 
026305 
101007 
005702 
001404 
026362 
101401 
010302 
062703 
020337 
103753 



000241 
005702 
001001 
000261 
012603 
000207 



. SBTTL OVLTRY — Find an overlay to place over TSINIT 

OVLTRY is called to identify the largest overlay segment which 
will fit in the TSINIT area and which is not already marked to go 
over TSINIT. 

Inputs: 
R5 = # 64-byte blocks available for segment in TSINIT. 

Outputs: 
R2 = Pointer to 03TABL entiy for segment 
C-flag set ==> No more segments will fit. 

OVLTRY: MOV R3, -<SP> 

Begin loop to examine all segments 



000516 
000000 

000002 

000000 



000000 000000 



000006 
000744 



1*: 



3*: 
2*: 



9*: 



CLR 


R2 


MOV 


#OSTABL, R3 


TST 


0S*SIZ(R3) 


BEQ 


2* 


TST 


0S*FLG<R3> 


BNE 


2* 


CMP 


0S*SIZ(R3),R5 


BHI 


2* 


TST 


R2 


BEQ 


3« 


CMP 


0S*SIZ(R3),0S 


BLOS 


2* 


MOV 


R3. R2 


ADD 


#OS««SZ, R3 


CMP 


R3, OSLAST 


BLO 


1* 


inished 




CLC 




TST 


R2 


BNE 


9* 


SEC 




MOV 


(SP)+iR3 


RETURN 





Say we haven't found any segment yet 

Point to entry for 1st segment 

Is this segment to be loaded? 

Br if not 

Is this segment already over TSINIT? 

Br if yes 

Will this segment fit? 

Br if not 

Have we found any other seg yet? 

Br if not 
Z(R2) ; Is new seg larger than old? 
; Br if not 

j Remember largest segment 
; Point to entry for next segment 
; Have we checked all segments? 
i Loop if not 



; Assume we found a segment 

jDid we find a segment that will fit? 

; Br if yes 

(Signal failure on return 
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— Load system overlay into high memory 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



023116 



023116 166205 000000 
023122 020527 001600 
023126 103405 



023130 004737 004522' 



023134 004737 023162' 



023140 000207 



023142 
023150 
023156 000137 004134' 



. SBTTL GETOVL — Load system overlay into high memory 

GETOVL is called to load a system overlay into high memory. 

Inputs: 
R2 = Pointer to overlay table entry for segment in OSTABL. 
R5 = 64-byte physical memory block number where seg is to be loaded. 

Outputs: 
R5 = Update 64-byte physical memory block pointer for next segment. 

GETOVL: 

Allocate space for the overlay segment 

SUB 0S*SIZ(R2) . f?5 i Allocate space for overlay 

CMP R5, #1600 >Are ue about to run over RT-11? 

BLO 10* 'Br if yes — Insufficient memory 

Remember the base address of some key segments 



CALL KEYSEG 
Load the segment 

CALL LODOVL 
Finished 

RETURN 

Error: Memory overflow 

10*: .PRINT #TSXHD 
.PRINT #TSXSIZ 
JMP INISTP 



; Remember address of some segments 



> Load the segment 
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1 
2 
3 
4 
5 
6 
7 
S 
9 023162 

10 023164 

11 023166 

12 023170 

13 023172 
14 

15 
16 
17 

18 023174 

19 023200 

20 023204 
023212 
023214 
023220 



21 
22 



3ccc 

25 023226 

26 

27 

28 

29 023232 

30 023236 

31 023274 
32 

33 
34 

35 023276 

36 023302 

37 023306 

38 023310 

39 023312 

40 023314 

41 023316 

42 023324 

43 023330 

44 023334 

45 023342 

46 023346 

47 023350 

48 023356 

49 023360 

50 023362 

51 023366 

52 023370 

53 023376 

54 023404 

55 023410 

56 023416 

57 023422 



010146 
010246 
010346 
010446 
010546 



016201 
016103 
016137 
010302 
062702 
000302 
042702 
010561 



013704 
103466 



012701 
012700 
020300 
103001 
010300 
160003 

013746 
010537 
052737 
105737 
001403 
052737 
012421 
077002 
105737 
001403 
042737 
042737 
012637 

062705 
005237 



. SBTTL LODOVL — Read and relocate system overlay 
LODOVL is called to load a system overlay region into memory. 



Inputs: 
R2 = Pointer to DSTABL entry for segment being loaded. 
R5 = 64-byte physical memory block number uihere segment is to be loaded. 



LODOVL: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 
R3, -<SP) 
R4, -<SP> 
R5, -<SP) 



Get info about size of the overlay and position within SAV file 



000004 
OOOOOOG 
0000000 000142 

000377 

177400 
OOOOOOG 



000152' 



MOV 

MOV 

MOV 

MOV 

ADD 

SWAB 

BIC 

MOV 



0S*0VL(R2), Rl iGet pointer to linker-built segment entry 
0. SIZ(Rl)iR3 i Get size of overlay segment (# uiords) 
0. BLK<R1 ), FILBLKi Get block in SAV file where segment starts 
R3i R2 ; Get total number of words in segment 

#255. * R2 ground to the nearest number of blocks 



R2 

#177400, R2 
R5, 0. PAR<R1) 



i Divide by 256. words per segment 

i kill sign extension bits 

i Remember where segment is being loaded 



10*: 



Read next block of overlay segment into low-memory buffer 

MOV WRKBUF, R4 j Point to work buffer 

. READW #AREA, #17, R4, #256. , FILBLK ; read a block 

BCS 22* i read error occured 

Move from low buffer to high position in memory 



OOOOOOG 
000400 



2*: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

000010 
000142' 



11*: 



12*: 



MOV #VPAR5, Rl 

MOV #256. , RO 

CMP R3, RO 

BHIS 2* 

MOV R3, RO 

SUB RO, R3 

DISABL 

MOV e#KPAR5, -<SP) 

MOV R5, e#KPAR5 

BIS #MMENBL, @#SROMMR 

TSTB MEM256 

BEG 11* 

BIS #EMMAP , e#SR 3MMR 

MOV (R4)+, (Rl> + 

SOB RO, 11* 

TSTB MEM256 

BEQ 12* 

BIC #EMMAP, @#SR3MMR 

BIC ttMMENBL, @#SROMMR 

MOV (SP)+, e#KPAR5 

ENABL 

ADD #10, R5 

INC FILBLK 



get t 
obtai 
Do we 
Br if 
Get n 
Get n 
*# Di 
save 
Chang 
enabl 
Does 
Br if 
enabl 
move 



he virtual address of the mapped region 
n the number of words to move 

to move as many as 256 words? 



need 
yes 
umber 
umber 



€ 
€ 
I 
I 

f 
I 
< 
i 
i 

i 

i 
I 
€ 
C 



of words to move for last block 
of words left after this move 

sable interrupts *# 

the contents of the mapping register 

e the mapping register 

e memory management 

machine have at least 256Kb of memory? 
not 

e extended memory addressing 

into high memory 



Does this machine have at least 256Kb? 

Br if not 

disable extended memory management 

disable memory management 

restore the mapping register 

** Enable interrupts #» 

advance 64-byte block # by 512-bytes 

increment file block # 
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58 023426 

59 023^30 

60 023432 
61 

62 
63 

64 023436 

65 023440 

66 023442 

67 023444 

68 023446 

69 023450 
70 

71 
72 

73 023452 

74 023460 

75 023466 



005302 
001402 
000137 



012605 
012604 
012603 
012602 

012601 
000207 



023232 ' 



DEC 


R2 


BEQ 


5* 


JMP 


10* 



; More to be copied? 

; Br if not 

; Read and copy rest of mapped segment 



Finished loading the segment 



5*: 



MOV 


<SP)+,R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





000137 004134' 



; Error occurred on read 

22*: .PRINT #TSXHD 
. PRINT #RDERR 
JMP INISTP 



; Print heading 

j Read error 

iAbort initialization 



TSINIT 
GETSRT 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Load any shared run-time systems 



023472 010146 

023474 010246 

023476 010346 

023500 010446 



023502 021127 
023506 001540 



0000000 



023510 
023526 



103010 



023530 105737 OOOOOOG 

023534 001132 

023536 005061 OOOOOOG 

023542 005061 0000020 

023546 000520 



023550 116102 OOOOOOG 

023554 042702 177400 

023560 160200 

023562 010561 OOOOOOG 

023566 010003 

023570 072027 000003 

023574 160005 

023576 020527 001600 

023602 103530 

023604 010561 OOOOOOG 



023610 010546 

023612 013704 000152' 

023616 



. SBTTL GETSRT — Load any shared run-time systems 

OETSRT is called to load into memory a shared run-time system. 
Shared run-time systems are loaded into the top of memory. 

Inputs: 
Rl = Pointer to shared run-time descriptor block. 
R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = New top of memory block number 



GETSRT: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2/-<SP) 
R3, -<SP) 
R4, -<SP) 



See if this is a dummy run-time entry to allow for patching 



CMP (R1),#DMYDEV 
BEQ 7* 



i Dummy run-time entry? 
; Br if yes 



Try to open a channel to run-time file 



. LOOKUP #AREA, #1, Rl 
BCC 8* 



; OPEN CHANNEL TO RUN-TIME FILE 
iBR IF OPEN WAS SUCCESSFUL 



TSTB 


VINABT 


BNE 


9* 


CLR 


RT*NAM(R1) 


CLR 


RT*NAM+2<R1) 


BR 


7* 



023652 012701 
023656 010537 



OOOOOOG 
OOOOOOG 



Cannot open shared run-time file. 
See if he wants to abort or continue. 

; ABORT OR CONTINUE 

iBR IF ABORT WANTED 

iMark run-time as not-available 

iGO LOAD NEXT RUN-TIME SYSTEM 

Set up information about position of run-time in physical memory 

S*: MOVB RT«SKP(R1),R2 i GET # BLOCKS TO SKIP AT FRONT OF RUN-TIME 

CLEAR SIGN EXTENSION 

GET # BLOCKS TO READ < LOOKUP SET RO W SIZE) 
SET 64~BYTE BLOCK # ABOVE TOP OF RUN-TIME 
GET # 512-BYTE BLOCKS IN RUN-TIME 
CONVERT TO # 64-BYTE BLOCKS 

CALCULATE BASE 64-BYTE BLOCK # OF RUN-TIME 
ARE WE ABOUT TO RUN OVER RT-11? 
BR IF YES 
SET BASE 64-BYTE BLOCK # OF RUN-TIME 

Read run-time system into memory and position in high-memory 

MOV R5i-<SP) ; Save address of bottom of run-time 
4*: MOV WRKBUF, R4 i Point to work buffer 

. READW #AREA, #1,R4, #256. ,R2 J READ A BLOCK OF RUN-TIME FILE 
} Use memory management to access high-memory area. 

MOV #VPAR6, Rl iGET VIRTUAL ADDRESS OF PAR6 ADDRESS REGION 

MOV R5, S#UPAR6 i SET USER-MODE PAR6 MAP OFFSET VALUE 



MOVB 


RT*SKP<R1),R2 


BIC 


#•^0377, R2 


SUB 


R2, RO 


MOV 


R5, RT*T0P<R1) 


MOV 


RO, R3 


ASH 


#3, RO 


SUB 


RO, R5 


CMP 


R5, #1600 


BLO 


11* 


MOV 


R5, RT*BAS(R1) 



I 



TSINIT — 
SETSRT -- 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
17 
78 
79 
SO 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
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023662 
023670 
023676 
023702 
023710 
023716 
023722 
023724 
023732 
023734 
023736 
023740 
023744 
023746 
023754 
023762 
023770 
023774 
023776 



024000 
024002 



024010 
024012 
024014 
024016 
024020 



024022 
024030 
024036 
024042 
024044 
024050 
024052 
024060 



024064 
024072 
024100 



012737 
052737 
012700 

052737 
105737 
001403 
052737 
012446 
106621 
077003 
105737 
001403 
042737 
042737 

062705 
005202 
077373 



012605 



012604 
012603 
012602 
012601 
000207 



012702 
012100 
004737 
077204 



077406 0000000 

ooooooG ooooooe 

000400 

0000000 OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



3«: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 31*: 

000010 



MOV 


#077406, e#UPDR6 : 


BIS 


#UPMODE, e#PSW ; 


MOV 


#256. , RO i 


DISABL 


; 


BIS 


#MMENBL, @#SROMMR; 


TSTB 


MEM256 > 


BEQ 


3* ■> 


BIS 


#EMMAP, @#SR3MMR ; 


MOV 


(R4)+, -(SP) ; 


MTPD 


(Rl) + 


SOB 


RO, 3* 


TSTB 


MEM256 \ 


BEQ 


31* ; 


BIC 


#EMMAP, S#SR3MMR ; 


BIC 


#MMENBL, e#SROMMRi 


ENABL 




ADD 


#10, R5 i 


INC 


R2 ; 


SOB 


R3, 4* ; 



SET PDR TO ALLOW FULL ACCESS TO PAGE 

SET PREVIOUS-MODE = USER FOR MTPD ACCESS 

GET # WORDS TO MOVE 

#* Disable interrupts *» 

enable memory management 

DOES THIS MACHINE HAVE AT LEAST 256KB? 

BR IF NOT 

enable extended memory addressing 

TRANSFER DATA FROM BUFFER TO HIGH MEMORY 



DOES THIS MACHINE HAVE AT LEAST 256KB? 

BR IF NOT 

DISABLE EXTENDED MEMORY MANAGEMENT 

DISABLE MEMORY MANAGEMENT 

** Enable interrupts *# 

ADVANCE 64-BYTE BLOCK # BY 512-BYTES 

INC FILE BLOCK # 

READ AND COPY REST OF FILE 



Finished loading the run-time system. 



7*: 



MOV 


(SP)+, R5 


. CLOSE 


#1 


Finished 




MOV 


(SP)+, R4 


MOV 


<SP>+. R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





Error 



Cannot find run-time system file 



9*: 



000004 
025274' 



000137 004134' 



.PRINT #TSXHD 

.PRINT #COSRT 

MOV #4, R2 

10*: MOV (Rl)+, RO 

CALL PRTR50 

SOB R2, 10* 

. PRINT #CRLF 

JMP INISTP 



PRINT MESSAGE HEADING 
PRINT ERROR MESSAGE 
PRINT 4 RAD50 VALUES 
GET PART OF NAME 
PRINT RAD50 VALUE 

; END LINE 

i ABORT INITIALIZATION 



Error — Insufficient memory space to load run-time systems 



000137 004134' 



11*: .PRINT #TSXHD 
.PRINT #SRTOVF 
JMP INISTP 



PRINT HEADING 
PRINT ERROR MESSAGE 
ABORT INITIALIZATION 



TSINIT - 
CSHBUF - 

1 
2 
3 
4 
5 
6 
7 

e 

9 

10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL CSHBUF — Allocate space for data cache tables 

Allocate space for data cache blocks and control tables. 

Inputs: 
R4 = 64-byte block number of base of free memory. 
R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = Updated 64-byte block number of top of free memory. 



024104 010246 
024106 010346 



024110 013737 OOOOOOG OOOOOOG 
024116 013702 OOOOOOG 
024122 001464 



024124 062702 000037 
024130 072227 177773 



024134 013703 OOOOOOG 

024140 072327 000003 

024144 012700 000010 

024150 060203 

024152 077002 

024154 010337 OOOOOOG 



024160 010500 

024162 160400 

024164 020300 

024166 103045 



024170 013700 OOOOOOG 

024174 072027 000003 

024200 160005 

024202 010537 OOOOOOG 



024206 160205 

024210 010537 OOOOOOG 

024214 160205 

024216 010537 OOOOOOG 

024222 160205 

024224 010537 OOOOOOG 

024230 160205 



CSHBUF: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



See if data caching is wanted 



MOV CSHALC, VCSHNB 
MOV CSHALC, R2 
BEQ 9* 



;Set # blocks in use - # blocks allocated 
iDid used request data caching? 
i Br if not 



Calculate number of 64-byte blocks needed for each cache control table 



ADD 
ASH 



#31. ,R2 
#-5. , R2 



/Bound up to 32 uord block 
/Convert to # 64-byte blocks 



Compute total space that ujill be used by all cache data 



1«: 



MOV CSHALC/ R3 

ASH #3/ R3 

MOV #8. , RO 

ADD R2/ R3 

SOB RO/ 1* 

MOV R3, CSHSIZ 



/Get # blocks in cache 

/Get # 64-byte blks used by cache data buffers 
/Get number of cache control tables 
/Accumulate total space needed 



; Save total space used by cache data 

See if there is enough memory space available for the specified cache 

/Get top of memory address 
/Compute # free 64~byte blocks 
/ Is there enough total space? 
/Br if not 

Allocate space for cache data buffers 



MOV 


R5/ RO 


SUB 


R4/R0 


CMP 


R3/R0 


BHIS 


10* 



MOV CSHALC, RO 

ASH #3. RO 

SUB RO/ R5 

MOV R5, CSHBFP 



Get # blocks in data cache 

Get # 64-byte blocks needed for allocation 
Allocate space for cache data buffers 
Save pointer to base of buffer area 



Allocate space for each control table 



SUB R2/ R5 

MOV R5/ CA*BLK 

SUB R2/ R5 

MOV R5/ CA*DVU 

SUB R2/ R5 

MOV R5/ CA*WCT 

SUB R2/ R5 



/Allocate space for table 

/Block number associated with entry 

/Allocate space for table 

/Device and unit number 

/Allocate space for table 

/Number of words 

^Allocate space for table 



i 
I 



TSINIT - 


-- TSX s 


tartup initializ 


CSHBUF - 


— Allocate space for da 


58 


024232 


010537 


0000000 


59 


024236 


160205 




60 


024240 


010537 


ooooooe 


61 


024244 


160205 




62 


024246 


010537 


OOOOOOG 


63 


024252 


160205 




64 


024254 


010537 


OOOOOOG 


65 


024260 


160205 




66 


024262 


010537 


ooooooe 


67 


024266 


020527 


001600 


68 


024272 


101403 




69 








70 








71 








72 


024274 


012603 




73 


024276 


012602 




74 


024300 


000207 




75 








76 








77 








78 


024302 






79 


024310 






80 


024316 


000137 


004134' 



HCRO V05. 05 Friday 20 
cache tables 

MOV 
SUB 
MOV 
SUB 
MOV 
SUB 
MOV 
SUB 
MOV 
CMP 
BLOS 

i 

i Finished 
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9*: 



MOV 
MOV 
RETURN 



R5, CA*UFL 

R2>R5 

R5, CA*UBL 

R2, R5 

R5. CA*HFL 

R2, R5 

R5, CA*HBL 

R2, R5 

R5, CA*HSH 

R5, #1600 

10* 



<SP)+, R3 
<SP)+, R2 



LRU chain f 
Allocate sp 
LRU chain b 
Allocate sp 
Hash chain 
Allocate sp 
Hash chain 
Allocate sp 
Hash chain 
Did u<e run 
Br if yes 



oriuard 1 
ace for 
acktuard 
ace for 
forward 
ace for 
backward 
ace for 
list hea 
over RT- 



ink 
table 
link 
table 
link 
table 
link 
table 
ds 
11? 



Insufficent memory space available for cache data 



10*: 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#CSHOVF 

INISTP 



; Print heading 

;Overlouj message 

;Abort the initialization 






f 

c 



c 
i 
i 

€ 

I 

4 
I 
I 
I 
€ 
€ 
4 



TSINIT - 
CSHBUF - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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-IF EQ,PROCID iDon't allouj ODT for production PRO version 
. SBTTL GETODT — Load ODT 

GETODT is called to load ODT into memory above TSX and transfer control 
to it. On return* ODT has been started. 

Inputs: 
R5 = Address where ODT is to be loaded. 

Outputs: 
R5 = Address above top of ODT. 



GETODT: MOV 
MOV 
MOV 
MOV 



Rl/ -<SP) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 



1*; 



2*: 



Try to lookup ODT rel file. 

-LOOKUP #AREA, #1,#0DTBLK ; LOOKUP ODT REL FILE 

BCC 1* ; BR IF FOUND IT 

.PRINT #TSXHD ; CAN'T FIND ODT 
.PRINT #NOODT 

JMP INISTP ; ABORT INITIALIZATION 

Read first block of ODT file and determine size of ODT. 



i RESERVE SPACE FOR ODT STACK 

; CHECK MEMORY ADDRESS FOR OVERFLOW 



;Br if no read error 

; Read error 

i GET SIZE OF ODT 

i GET ADDRESS ABOVE TOP OF ODT 

; CHECK MEMORY ADDRESS FOR OVERFLOW 



ADD 


#200. , R5 


MOV 


R5, RO 


ADD 


#512. ,R0 


CALL 


CHKMEM 


. READW 


#AREA> #1* R 


BCC 


2$ 


JMP 


ODTRDX 


MOV 


RSZ(R5),R2 


MOV 


R2, R3 


ADD 


R5, R3 


MOV 


R3, RO 


CALL 


CHKMEM 


CLC 




ROR 


R2 



Get starting address of ODT 

MOV STA<R5),R0 

SUB #ODTBAS, RO 

ADD R5, RO 

MOV RO, ODTSTA 

MOV RBD(R5),R1 

Read in ODT rel file image. 



; GET # WORDS IN ODT 

; GET OFFSET TO START ADDRESS 

i CALCULATE ABSOLUTE STARTING ADDRESS 

; THIS IS REAL STARTING ADDRESS 

; GET # OF BLOCK WITH RELOCATION INFO 



• READW #AREA, #1, R5, R2, #1 

BCS ODTRDX i BR IF READ ERROR 

Relocate addresses in ODT. 

R5 = Address of base of ODTi R3 = Address above top of ODT. 

Rl = Block number in rel file of start of relocation info. 



TSINIT - 
CSHBUF - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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RELFIL: MOV R3. ODTTDP 

MOV R3> RLBF 
. IF NE, PROCID 

TSTB PROFLG 

BNE 1* 
. ENDC iNE, PROCID 

MOV WRKBUF, RLBF 
1*: MOV RLBF, RLBFND 

ADD #1024. , RLBFND 

MOV R5, R4 

SUB #ODTBAS, R4 
i Read in relocation address 
4*: . READW #AREA, #1, RLBF, 

BCC 7* 

TSTB e#52 

BNE ODTRDX 
i Relocate some addresses in 



■> SAVE ADDRESS ABOVE TOP OF ODT 

;Only if PRO protection code is included 
J Are uie running on a Pro? 
j Br if yes 

i READ RELOCATION INFO HERE 

; GET ADDRESS OF END OF BUFFER AREA 

; GET BASE ADDRESS OF ODT 

i SUBTRACT LINK BASE ADDRESS 
list. 
#512. ,R1 

; BR IF NO READ ERROR 

,• END OF FILE IS OK 

; BR IF READ ERROR 



DDT. 



7*: 


MOV 


RLBF, R2 


3*: 


MOV 


(R2)+, R3 




CMP 


R3, #-2 




BEQ 


9* 




MOV 


(R2>+, RO 




ASL 


R3 




BCC 


5* 




SUB 


R4, RO 




BR 


6* 


5«: 


ADD 


R4, RO 


6*: 


ADD 


R5, R3 




MOV 


RO, eR3 




CMP 


R2, RLBFND 




BLO 


3* 




ADD 


#2, Rl 




BR 


4* 



POINT TO RELOCATION INFO 

GET ADDRESS OF LOCATION TO RELOCATE 

TIME TO STOP? 

BR IF FINISHED 

GET VALUE TO RELOCATE 

CVT TO BYTE ADDRESS 

BR IF ADDITIVE RELOCATION 

RELOCATE THE ADDRESS 

RELOCATE THE ADDRESS 

GET LOCATION WHERE WORD GOES 

STORE RELOCATED ADDRESS 

TIME TO READ NEXT BUFFER FULL? 

BR IF NOT 

ADVANCE BLOCK # 

GO READ NEXT BUFFER FULL 



Finished relocation. 
Close ODT rel file. 

9*: . CLOSE #1 

Direct interrupts to 60 and 64 to an RTI instruction 



MOV #D0RTI,@#60 
MOV #D0RTI,@#64 



i Catch interrupt 60 
; Catch interrupt 64 



Load registers with the following values for initial entry to ODT: 



RO 
Rl 
R2 
R3 
R4 
R5 



Base of TSINIT 

Important breakpoint (''R) in TSX 

Base of TSGEN 

Base of TSEXEC 

Base of TSEMT 

Return address to start execution 
0(SP) = Address of mapsys routine 
2(SP) = Address of sysmap cell 

MOV #TSINIT, RO 
MOV #BRKPT, Rl 
MOV #TSGEN, R2 



TSINIT 


CSHBUF 


115 


116 


117 


lie 


119 


120 


121 


122 


123 


124 


125 


126 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


144 


145 
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Allocate space for data cache tables 



MOV 


#TSEXEC, R3 


MOV 


#TSEMT, R4 


MOV 


#SYSMAP, -<SP) 


MOV 


#MAPSYS. -(SP) 


MOV 


#10*, R5 


i Enter ODT 





; PASS ADDRESS OF SYSMAP CELL TO ODT 
i PASS ADDRESS OF MAPSYS ROUTINE 
; ADDRESS FOR ODT TO RETURN TO 



JMP 



eODTSTA 



; JUMP TO START OF ODT 



Return from ODT. 

Continue initialization of TSX. 



10*: 



MOV 


@#14, ODTTRP 


MOV 


ODTTOP, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





; SAVE ODT BREAKPOINT ENTRY ADDRESS 
i ADDRESS ABOVE TOP OF ODT 



Error while reading ODT rel file. 

i PRINT ERROR MESSAGE 
; ABORT INITIALIZATION 

RTI instruction to disable interrupts 



ODTRDX: .PRINT #TSXHD 
.PRINT #ODTRDM 
JMP INISTP 



DORTI: 



RTI 
. ENDC 



;EQ, PROCID 



f 
f 
f 
« 
I 
I 
i 

i 
i 
€ 

i 

I 
< 
t 
C 
4 
i 



i 



TSINIT 
OPNCHN 
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— Open a TSX-Plus channel 



1 
2 
3 
4 
5 
h 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



SBTTL OPNCHN 



Open a TSX-Plus channel 



OPNCHN is called to set up information in a TSX-Plus channel block 
to make it look as if the channel has been opened to a specified 
device with a . ENTER. 

Inputs: 
RO = Address of channel block to be opened. 
R2 == Rad50 device name. 

Outputs: 
C-flag set ==> Cannot open the device. 



024322 010146 
024324 010346 
024326 010003 



024330 010301 

024332 012700 OOOOOOC 

024336 005021 

024340 077002 

024342 012763 OOOOOOC OOOOOOG 



024350 010200 

024352 004737 011476' 

024356 103411 

024360 010001 

024362 000301 

024364 110163 0000000 

024370 042700 OOOOOOC 

024374 050063 OOOOOOG 



024400 000241 



024402 012603 
024404 012601 
024406 000207 



OPNCHN: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R3, -(SP) 
RO, R3 



CaTT\i channel block address in R3 



Initialize the channel block 



2*: 



iPoint to the channel block 
; Get # words to zero 
; Zero the channel block 



MOV R3. Rl 

MOV #<CHNSIZ/2>, RO 

CLR <R1)+ 

SOB RO, 2* 

MOV #<CS*OPN!CS*ENT>/ C. CSW(R3) i Initialize CSW to say chan open 



Convert the device name into device # and unit # 



9*: 



MOV 


R2, RO 


CALL 


CVTDVU 


BCS 


9* 


MOV 


RO, Rl 


SWAB 


Rl 


MOVB 


R1,C. DEVQ(R3) 


BIC 


#-^C<CS«NMX>, RO 


BIS 


RO, C. CSW(R3) 


Success 




CLC 




Finished 




MOV 


(SP>+, R3 


MOV 


<SP)+,R1 


RETURN 





Get the full device name 

Convert to dev # and unit # 

Br if uie don't recognize the device name 

Get index # and unit # 

Get unit # to low byte 

Set unit # in channel block 

Clear all but device index number in RO 

Store device index # into CSW 



Signal success on return 



TSINIT 


— TSX startup . 


tnitializ 


SETCHN 


— Copy 


RT-11 channel in 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 


024410 


010146 




19 


024412 


010246 




20 


024414 


010346 




21 


024416 


010001 




22 








23 








24 








25 


024420 






26 








27 








28 








29 








30 


024436 


011103 




31 


024440 


042703 


177701 


32 


024444 






33 


024464 


060003 




34 


024466 






35 


024504 


013703 


OOOOOOG 


36 


024510 


020063 


OOOOOOG 


37 


024514 


001404 




38 


024516 


162703 


000002 


39 


024522 


002372 




40 


024524 


000407 




41 


024526 


042711 


000076 


42 


024532 


050311 




43 








44 








45 








46 


024534 


012603 




47 


024536 


012602 




48 


024540 


012601 




49 


024542 


000207 




50 








51 








52 








53 


024544 






54 


024552 






55 


024560 


010200 




56 


024562 


004737 


025274 ' 


57 


024566 
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. SBTTL SETCHN — Copy RT-11 channel information into TSX system chan 

SETCHN is called to set up a TSX system channel block to access a file 
that has been opened using RT-11. The device index number is converted 
from the RT-11 device number to the corresponding TSX device number. 
Note: the channel must have been opened with a . lookup <not . enter) 
to use this routine. 

Inputs: 
Channel # 1 = Open to file of interest. 

RO = Address of TSX channel block which is to be set up. 
R2 = Rad-50 device name. 

Outputs: 
Channel block pointed to by RO is set up for future TSX I/O. 
Channel # 1 is closed. 



SETCHN: MOV 
MOV 
MOV 
MOV 



Rl. -(SP) 
R2, -<SP) 
R3, -(SP) 
RO. Rl 



1*: 



2*: 



GET ADDRESS OF TSX CHANNEL BLOCK 

Do . SAVESTATUS to store channel information into TSX channel block. 

. SAVEST #AREA>#1,R1 -STORE CHANNEL STATUS INTO TSX CHANNEL BLOCK 

Now convert RT-11 device table index number into corresponding TSX 
device table index number. 

GET CSW FOR CHANNEL 

GET RT-n DEVICE INDEX NUMBER 

GET RT-11 OFFSET TO PNAME TABLE 

GET ADDRESS OF NAME OF DEVICE IN PNAME TABLE 

GET NAME OF DEVICE FROM RT-11 

GET INDEX # FOR LAST TSX DEVICE 

LOOK FOR DEVICE IN OUR TABLES 

BR IF FOUND 

CHECK NEXT ENTRY 

BR IF MORE TO CHECK 

VERY STRANGE THAT WE DIDN'T FIND IT 

CLEAR OUT RT-11 DEVICE # 

STORE TSX DEVICE # 



MOV 


<R1),R3 


BIC 


#•'^076, R3 


. GVAL 


#AREA, #404 


ADD 


ROi R3 


. GVAL 


#AREA, R3 


MOV 


NUMDEV, R3 


CMP 


RO, PNAME(R3) 


BEQ 


2$ 


SUB 


#2, R3 


BGE 


1* 


BR 


MTSXDV 


BIC 


#76, <R1) 


BIS 


R3, <R1) 


Finished 




MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





Error: Could not locate Rt~ll device number in TSX device table. 



MTSXDV: . PRINT #TSXHD 

. PRINT #REQMIS 

MOV R2, RO 

CALL PRTR50 

.PRINT #CRLF 



PRINT ERROR MESSAGE 
Missing a required device 
GET RAD50 DEVICE NAME 
DISPLAY DEVICE NAME 



f 
< 
I 
I 

€ 

I 

I 

I 

i 

f 

i 

€ 

i 

i 

i 

i 
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4 

I 

4 
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SETCHN — Copy RT-11 channel information into TSX system chan 

58 024574 000137 004134' JMP INISTP ; ABORT INITIALIZATION 



I 
I 
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C 
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SETSY — Set up information about SY device 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
U 
12 
13 

14 024600 

15 024602 
16 

17 
18 

19 024604 

20 024624 
21 

22 

23 

24 024630 
024650 
024652 
024672 

28 024674 

29 024712 

30 024716 

31 024722 

32 024724 

33 024730 

34 024732 

35 024734 

36 024736 
37 

38 
39 

40 024742 

41 024746 

42 024752 

43 024756 
44 

45 
46 

47 024762 

48 024764 

49 024766 



25 
26 
27 



010146 
010246 



010002 

060002 

013701 
020061 
001405 
162701 
002372 
010002 
000703 
010137 



113702 
062702 
066102 
010237 



012602 
012601 
000207 



. SBTTL SETSY — Set up information about SY device 

SETSY is called to set up information about the SY device. 

It does this by determining what device RT-11 recognizes as SY. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
SYNAME = RAD50 spec for physical system disk 
SYINDX = TSX device table index for SY device 
SYUNIT = SY device unit number 



SETSY: 



MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 



Set up system device unit number 



010037 0000000 



. OVAL 
MOV 



#AREA, #274 
R0> SYUNIT 



/Get system unit # from RT-11 <high byte) 
; Set system unit number 



Set up system device index number 



OOOOOOG 
OOOOOOG 

000002 



OOOOOOG 



00000 IG 
000036 
OOOOOOG 
OOOOOOG 



1*: 



2$: 



. GVAL 


#AREA, #364 


MOV 


RO, R2 


. GVAL 


#AREA, #404 


ADD 


RO, R2 


. GVAL 


#AREA, R2 


MOV 


NUMDEV, Rl 


CMP 


RO, PNAME<R1> 


BEG 


2* 


SUB 


#2, Rl 


BGE 


1* 


MOV 


RO, R2 


BR 


MTSXDV 


MOV 


Rl, SYINDX 



Set up RAD50 name of SY disk 



MOVB 


SYUNIT+1, R2 


ADD 


#36, R2 


ADD 


PNAME(R1>,R2 


MOV 


R2, SYNAME 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





Get RT-11 system device index number 

Save device index number 

Get offset ujithin RMON of PNAME table 

Get offset to name of SY device 

Get name of RT-11 system device 

Get index to last TSX-Plus device entry 

Search for device in TSX tables 

Br if found it 

Keep looking if more 

; Save name of system device 

J Missing device error 

; Store index # of TSX-Plus system device 



GET SYSTEM UNIT NUMBER 

PUT IN "0" AS 3'RD CHARACTER OF NAME 

ADD DEVICE NAME 

THIS IS THE FULL SY DISK NAME 



I 
i 
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RTFTCH — Fetch a RT-11 device handler 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



024770 010046 
024772 010246 
024774 010546 



024776 010037 000130' 



025002 

025014 103425 



025016 005737 000116' 
025022 001021 



025024 1 3702 000 1 52 ' 

025030 013700 000114' 

025034 020037 000154' 

025040 101405 



025042 060500 

025044 020037 000132' 

025050 101013 

025052 010502 



025054 

025064 103401 



SBTTL RTFTCH 



Fetch 



RT-11 device handler 



RTFTCH is called to fetch an RT-11 device handler. 

If the handler is already resident, nothing is done. 

If the handler mill fit in WRKBUF, it is fetched into there. 

If the handler will not fit in WRKBUF» it is fetched into the top 

of memory. 



Inputs: 
RO = RAD50 device name. 
R5 = Address of start of free memory. 

Outputs: 
C-flag cleared ==> Fetch was successful. 
C-flag set ==> Error on fetch. 



RTFTCH: MOV 
MOV 
MOV 



RO, -(SP) 
R2. -<SP) 
R5, -(SP) 



Set the name of the device being fetched 

MOV RO; FETDEV i Set name of device whose handler to fetch 

Do a . DSTAT to get information about the handler 

. DSTAT #DSTBLK/ #FETDEV .Get information about the device handler 
BCS 9* i Br if device not recognized 

Determine if the handier is currently resident 



TST 
BNE 



DSTBLK+4 
8* 



i Is the handler resident now? 
; Br if yes 



The handler is not currently resident. 
See if it will fit in WRKBUF. 



MOV 


WRKBUF, R2 


MOV 


DSTBLK+2, RO 


CMP 


RO, WRKSIZ 


BLOS 


1* 



Set address where handler will be loaded 

Get the size of the handler 

Will handler fit in WRKBUF? 

Br if handler will fit in WRKBUF 



Handler will not fit in WRKBUF. 

See if there is room to load it into the top of memory. 



ADD 


R5, RO 


CMP 


RO, TOPMEM 


BHI 


10* 


MOV 


R5, R2 


; Fetch the 


handler 



1*: 



. FETCH R2, #FETDEV 
BCS 9* 



; Get address above top of area needed 

i Is there room for handler? 

i Br if not 

; Set address where handler is to be loaded 



i Try to fetch the handler 
i Br if error on fetch 



i 
< 
I 
< 
f 

i 

f 

€ 

I 
< 
4 



We successfully fetched the handler 



i 
i 
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RTFTCH — Fetch a RT-11 device handler 

58 025066 000241 8*: CLC i Signal success on return 

59 ; 

60 ; Finished 

61 i 

62 025070 012605 9«: MOV (SP)+, R5 

63 025072 012602 MOV (SP)+, R2 

64 025074 012600 MOV (SP)+, RO 

65 025076 000207 RETURN 

66 } 

67 i Insufficient memory available to load the handler 

68 ; 

69 025100 004737 025124' 10*: CALL SIZERR i Generated system is too big -- abort 
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CHKMEM — Check for memory space overflow 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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17 

18 

19 

20 

21 

22 
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26 

27 

28 

29 

30 



SBTTL CHKMEM — Check for memory space overflow 



025104 020037 000236' 

025110 103402 

025112 004737 025124' 

025116 004737 025144' 

025122 000207 



025124 
025132 
025140 



000137 004134' 



025144 
025150 
025152 
025156 



005737 
001402 
000137 
000207 



000040 ' 



004134' 



CHKMEM is called to make sure we have not overflowed the available memory 

space while allocating space for TSX. 

If a memory overflow occurs* an error message is printed and 

the initialization is aborted. 



Inputs: 
RO = Address to be tested for validity. 



CHKMEM: CMP 
BLO 
CALL 

1*: CALL 

RETURN 



RO, MEMLIM 
1* 

SIZERR 
CCATST 



i IS THE ADDRESS OK? 

i BR IF OK 

; Generated system is too big — abort 

; CHECK FOR -^C ABORT REQUEST 



Generated system is too big. Abort the initialization. 



SIZERR: .PRINT #TSXHD 
.PRINT #TOOBIG 
JMP INISTP 



i PRINT MESSAGE HEADING 
j PRINT ERROR MESSAGE 
; ABORT INITIALIZATION 



Check for control-C and abort initialization if requested. 



CCATST; TST CCAFLO 

BEQ 1$ 

JMP INISTP 

1*: RETURN 



iDID USER REQUEST 'X ABORT? 

J BRANCH IF NOT 

iELSE ABORT INITIALIZATION 



TSINIT — 
PRTOCT -- 



TSX startup 
Print octal 



initial i z 
value 
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1 
2 

4 
5 
6 
7 

8 025160 

9 025162 

10 025164 

11 025166 

12 025172 

13 025174 

14 025200 

15 025202 

16 025204 

17 025210 
IS 025214 

19 025220 

20 025222 



010146 
010246 
010001 
012702 
005000 
073027 
000403 
005000 
073027 
062700 

077210 
012602 
012601 
22 025226 000207 



. SBTTL PRTOCT — Print octal value 
PRTOCT is called to print an octal value without trailing Cr-Lf. 



Inputs: 
RO = value to be printed. 



000006 



000001 



000003 
000060 



PRTOCT: 


MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


RO, Rl 




MOV 


#6, R2 




CLR 


RO 




ASHC 


#1,R0 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3>R0 


2*: 


ADD 

. TTYOUT 


#'0, RO 




SOB 


R2, 1* 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





i(5ET VALUE TO PRINT 
; PRINT 6 DIGITS 

i GET 1ST OCTAL DIGIT (1 BIT) 

i INITIALIZE FOR SHIFT 

} SHIFT AN OCTAL DIGIT INTO RO 

i CONVERT TO ASCII CHARACTER 

i PRINT THE CHARACTER 

i LOOP AND PRINT MORE DIGITS 



TSINIT - 


— TSX s 


fcartup initial! 


PRTDEC - 

1 

2 
3 


— Print 


dec imal 


value 








4 








5 








6 








7 








8 








9 


025230 


010146 




10 


025232 


005046 




11 








12 








13 








14 


025234 


010001 




15 


025236 


005000 




16 


025240 


071027 


000012 


17 


025244 


062701 


000060 


IS 


025250 


010146 




19 


025252 


010001 




20 


025254 


001370 




21 








22 








23 








24 


025256 


012600 




25 


025260 


001403 




26 


025262 






27 


025266 


000773 




28 








29 








30 








31 


025270 


012601 




32 


025272 


000207 
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. SBTTL PRTDEC — Print decimal value 



PRTDEC is called to print a decimal value uiith leading zeroes suppressed 
and with no trailing Cr-Lf. 



Inputs: 
RO = Value to be printed 



PRTDEC: MOV 


Rl, -<SP) 


CLR 


-(SP) 


; Convert value to asci 


MOV 


RO, Rl 


1*: CLR 


RO 


DIV 


#10. ,R0 


ADD 


#'0,R1 


MOV 


Rl, -(SP) 


MOV 


RO, Rl 


BNE 


1* 


i Finished 


conversion. 



; NULL ON STACK TO STOP US 



GET VALUE TO BE CONVERTED 

SET HIGH-ORDER PART OF VALUE TO 

DIVIDE RO-Rl BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

AND STACK THE DIGIT 

GET QUOTIENT 

BR IF MORE DIGITS TO CONVERT 



Print result. 



2«: 



3*: 



MOV 


(SP)+, RO 


BE(3 


3* 


. TTYOUT 




BR 


2* 


inished 




MOV 


(SP)+, Rl 


RETURN 





GET A DIGIT FROM THE STACK 
BR IF REACHED END 
PRINT THE DIGIT 
PRINT MORE 



TSINIT 
PRTR50 - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

30 
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025274 
025276 



025300 
025304 
025306 
025310 
025314 
025320 
025322 
025324 



025326 
025332 
025334 
025340 



025342 
025344 
025346 



025350 



010146 
010246 



012702 
010001 
005000 
071027 
116101 
010146 
010001 
077210 



012702 
012600 

077204 



012602 
012601 
000207 



000003 



000050 
003347 



000003 



. SBTTL PRTR50 — Print Rad-50 valu« 

PRTR50 is called to print a Rad-50 value. 

Inputs: 
RO == value to be printed. 



PRTR50: MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 



1*: 



2$: 



Convert value to ascii string and stack the characters. 



! GET # CHARS TO CVT 

; GET VALUE TO BE CONVERTED 

i CLEAR HIGH-ORDER VALUE 

i DIVIDE RO-Rl BY 50 

; CONVERT REMAINDER TO ASCII CHARACTER 

; STACK THE CHARACTER 

> GET QUOTIENT 

i BR IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



i GET # CHARS TO PRINT 

i GET NEXT CHARACTER 

i PRINT THE CHARACTER 

i LOOP IF MORE CHARS TO PRINT 



MOV 


#3, R2 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#50, RO 


MOVE 


R50CHR(R1>,R1 


MOV 


Rl, -<SP) 


MOV 


RO, Rl 


SOB 


R2, 1* 



MOV 


#3, R2 


MOV 


<SP)+, RO 


. TTYOUT 




SOB 


R2, 2$ 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP>+,R1 


RETURN 





Define top of TSINIT 
INITOP: 



TSINIT — 
PRTR50 — 

1 
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3 
4 
5 
6 
7 

a 

9 
10 
11 

12 025350 

13 025352 
14 

15 

16 

17 025354 

IS 025356 

19 025360 

20 025362 

21 025364 

22 025366 

23 025370 

24 025372 

25 025376 

26 025404 

27 025410 
28 

29 
30 
31 

32 025414 

33 025420 

34 025424 

35 025430 

36 025434 

37 025440 

38 025442 

39 025444 

40 025446 

41 025452 
42 

43 
44 
45 
46 

47 025456 

48 025462 

49 025466 

50 025472 

51 025476 

52 025502 

53 025504 

54 025506 

55 025512 

56 025514 

57 025516 



012701 
012702 
012704 
013703 
004737 
122122 
001014 
004737 
011405 
074005 
010524 



IF 



NE. PROCID 



iOnly assemble for protected Pro 350 version 



177740 
025660' 



010146 
010246 
010346 
010446 
010546 
012700 
073472 
074037 
013737 
012700 
004737 



173600 
012701 
012702 
010237 
005437 
013700 
112122 
005201 
077003 
012700 
004737 



The follouiing startup code is only included for the Pro version. 
It is loaded here and executed very early during initialization 
and subsequently overwritten by I/O buffers. 

. SBTTL INSCHK — Installation validation subroutines for Pro-350 
. MCALL . PRINT 



;# OF BYTES TO BE DECRYPTED (EDMTH3) 
; POINTER TO BUFFER TO BE DECRYPTED 

decrypt disk image of Pro ID to intermed. state 

; SAVE REGISTERS 



025720 
025720 
025350 
026046 



OOOOOOG 



i Reserve an arg block area 


EDARGB: . WORD 


-32. 


EDADDR: . WORD 

• 


DSKBUF 


; Recover license number and 


INSCHK: MOV 


Rl, -(SP) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


MOV 


(PC)+, RO 


. RAD50 


/SCB/ 


XOR 


RO, LIGNUM 


MOV 


LICNUM. TSXSIT 


MOV 


#EDARGB, RO 


CALL 


EDMTH3 



DECRYPT LICENSE NUMBER 

WITH THIS CODE 

BY XORING IT 

MOVE LICENCE NUMBER TO TSGEN CELL 

POINT TO ENC/DEC ARG BLOCK (PRESET) 

DECRYPT TO INTERMED STATE 



Copy Pro ID ROM louj bytes into memory, and encrypt 1 step 



IDADDR 



173600 



J ADDRESS OF START OF PRO 350 ID ROM 



173600 
025722 ' 
025352 ' 
025350 ' 
025350 ' 



025350' 
025762' 



3*: 



MOV #IDADDR,R1 

MOV #ROMBUF, R2 

MOV R2, EDADDR 

NEO EDARGB 

MOV EDARGB, RO 

MOVB (Rl)+, (R2)H 

INC Rl 

SOB RO, 3* 

MOV #EDARGB, RO 

CALL EDMTH2 



GET POINTER TO PRO ID ROM 
POINTER TO COPY OF HARDWARE 
SAVE ADDRESS FOR ENCRYPTION 
MAKE +32. FOR ENCRYPTION 
ALSO USE AS LOOP COUNTER 
GET NEXT LOW BYTE 
SKIP ID ROM HIGH BYTES 
REPEAT THROUGH 32 BYTE ROM 
POINT TO ENCRYPTION ARG BLOCK 
PERFORM METHOD 2 ENCRYPTION 



ID 



025722 ' 
025660 ' 
OOOOOOG 
025350 ' 
025652' 



026250 ' 



4*: 



Have intermediate state of both hardware and disk copies of Pro ID 
in memory. Verify them against each other and correct memory image 



POINT TO HARDWARE COPY OF ID 

POINT TO DISK COPY OF ID 

POINT TO CODE TO BE CORRECTED 

INIT LOOP COUNTER 

USE Lie # AS SEED FOR EDPRNW, IN RO 

VERIFY ID'S ARE THE SAME 

ABORT IF NO MATCH ON ANY BYTE 

RANDOMIZE RO FOR XOR (LIC# INIT SEED) 

GET ENCRYPTED CODE 

RESTORE FUNCTIONAL CODE 

PUT DECRYPTED CODE BACK IN MEMORY 



HED at 


the same tim 


MOV 


#ROMBUF, Rl 


MOV 


#DSKBUF, R2 


MOV 


#SCHED, R4 


MOV 


EDARGB, R3 


CALL 


GETLIC 


CMPB 


(Rl)+, (R2)+ 


BNE 


5* 


CALL 


EDPRNW 


MOV 


@R4, R5 


XOR 


RO, R5 


MOV 


R5, (R4) + 
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TSINIT - 


-- TSX 5 


tartup initializ 


INSCHK - 


— Insta 


nation 


validati 


58 


025520 


077310 




59 


025522 


012605 




60 


025524 


012604 




61 


025526 


012603 




62 


025530 


012602 




63 


025532 


012601 




64 


025534 


000207 




65 








66 


025536 






67 


025544 






68 


025552 


000137 


004134' 


69 








70 








71 


025556 


124 


150 


72 








73 








74 








75 








76 








77 








78 


025652 


013700 


025720 ' 


79 


025656 


000207 




SO 








81 








82 








83 








84 


025660 






85 


025720 


000000 




86 


025722 
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5*: 



SOB 


R3, 4* 


MOV 


(SP)+>R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 




. PRINT 


#TSXHD 


. PRINT 


#NOTLIC 


JMP 


INISTP 



; REPEAT THROUGH ID TESTS 
i RESTORE REGISTERS 



i ID CHECKS AND CODE DECRYPTED 

?TSX-F 

NOT LICENSED FOR THIS MACHINE 

ID'S DON'T MATCHi ABORT INIT. 



. NLIST BEX 

151 NOTLIC: . ASCIZ /This copy of TSX-Plus not licensed for use on this machine./ 

. LIST BEX 
. EVEN 

Subroutine to recover incremental license number. Assume it has been 
decrypted already by XORing with . RAD50 /SCB/. 



OETLIC: MOV 

RETURN 



LICNUM, RO 



RETRIEVE DECRYPTED LIC # INTO RO 



Reserve room for both disk and hardware copies of the Pro ID number 
and for the incremental license number 

DISK IMAGE OF PRO ID 
INCREMENTAL LICENSE NUMBER 
COPY OF ROM ID LOW BYTES 



DSKBUF: 


. BLKB 


32. 


LICNUM: 


. WORD 





ROMBUF: 


. BLKB 


32. 



TSINIT 
EDEXPL 



TSX startup 
Comments on 
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encryption methods 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



025762 
025762 
025764 
025766 



025770 
025772 
025774 
026000 
026002 
026006 
026010 
026014 



026016 
026022 



010146 
010246 
010346 



012003 
011001 
004737 
010002 
042702 
005202 
004737 
077203 



004737 
111102 



025652 
177770 
026250 



026250 •' 



. SBTTL EDEXPL — Comments on encryption methods 

Encryption and decryption methods used here depend heavily on 
pseudo-random numbers generated by the linear congrutential method. 
See Hull and Dobell, SIAM Review, 4, 230, 1962. 

For the linear congruence relation: 

X<I) == ( A # X<I-1) + C ) MOD M 

X<I) is in the range to M-1 

The sequence has full period M, provided that: 

1) C is relatively prime to M 

2) If p is a prime factor of M, A MOD p == 1 

3) If 4 is a factor of M, A MOD 4 == 1 

In the special case where M is a power of 2, these rules simplify to 

1) C must be odd 

2) A MOD 4 === 1 

. SBTTL EDMTH2 — Encryption method 2 (XOR with PRN high bytes) 

Using the license number as the initial seed, mask out the low 3 bits« 
add 1 and call the PRN generator this many times to form the seed, 
XOR each byte in the input buffer with the high byte of the next PRN 
and replace the result in the input buffer. Decryption is accomplished 
by a second application of the same process. 



Inputs: 
RO 



Points to an arg block of the form: 

RO > buff_5iz ; word holding byte length of buffer 

buff_addr i address of buffer to be encrypted 



Outputs; 

RO Randomized 
input buffer encrypted 



EDMTH2: 



MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -(SP) 



; Save reg isters 



Fetch byte count, buffer pointer and initialize PRN seed 



MOV 

MOV 

CALL 

MOV 

BIC 

INC 

CALL 

SOB 



(R0)+, R3 
(R0),R1 
GETLIC 
RO, R2 
#-^C7, R2 
R2 

EDPRNW 
R2, 2* 



Fetch byte count of input buffer 

Fetch pointer to input buffer 

Use license number as initial PRN seed 

Copy license number to form repeat count 

No more than 8 repeats 

Make sure there is at least one 

Get a new PRN 

Advance the seed between 1 and 8 times 



Now sweep the buffer, XORing each byte with the high PRN byte 



1*: 



CALL 
MOVB 



EDPRNW 
(R1),R2 



iWith seed in RO, get next random number 
i Get next input byte 
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EDMTH2 — Encryption method 2 <XOR with PRN high bytes) 



58 026024 

60 026030 

61 026032 

62 026034 
63 

64 026036 

65 026040 

66 026042 

67 026044 



000300 
074002 
000300 
110231 
077310 

012603 
012602 
012601 
000207 



SWAB 


RO 


XOR 


RO, R2 


SWAB 


RO 


MOVE 


R2, (Rl) + 


SOB 


R3, 1* 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 
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j Reverse PRN high and low bytes 

; Encrypt the bute 

; Restore PRN high and lou» bytes for next seed 

; Save encrypted bytes back into input buffer 

j Repeat for entire input buffer 



i Restore registers 



4 
i 
4 



TSINIT 
EDMTH3 - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
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27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



026046 
026050 
026052 
026054 
026056 
026060 
026062 

026064 
026066 
026070 
026072 
026074 

026100 
026102 
026106 
026112 
026114 
026116 
026120 
026122 
026124 

026126 
026132 

026134 
026140 

026142 
026144 



010146 
010246 
010346 
010446 
010546 
012003 
011046 

010300 
002002 
005400 
005203 
004737 

006203 
004737 
004737 
005703 
001446 
005004 
005005 
011601 
010102 

004737 
060001 

004737 
060002 

010046 
042700 



. SBTTL EDMTH3 — Encryption/decryption meth 3 (swap bytes&shift bits) 

Using a prn of repeat length same as input string length* select prn 

numbered bytes from the input string* combine them into a word* 

shift the combined bytes a random number of bits, recombine the shifted 

bits and set the confused bytes back into the prn selected string bytes. 

Sign of the byte count indicates: + = encryption; - = decryption. 

If the byte count is O or 1, no encryption occurs. If the byte count is 

odd* then one random selected byte will not be encrypted. 



I 
I 



4 
« 



Inputs: 
RO 



Points 
RO : 



to an arg block 
buff siz 



buff addr 



026300 



025652' 
026324 ' 



026324 



026324 



177771 



i Outputs: 




* RO 


Randomi zed 


' Input 


buffer encrypted 


EDMTH3: MOV 


R1,-(SP) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4* -(SP) 


MOV 


R5*-(SP) 


MOV 


(R0)+, R3 


MOV 


@R0, -(SP) 


* Initialize 


prn generator of des 


MOV 


R3, RO 


BGE 


1* 


NE<? 


RO 


INC 


R3 


1*: CALL 


INPRNM 


} Start encryption loop through s 


ASR 


R3 


CALL 


GETLIC 


CALL 


EDPRNM 


2*: TST 


R3 


BEQ 


9* 


CLR 


R4 


CLR 


R5 


MOV 


esp,Ri 


MOV 


R1*R2 


i Select firs 


t random byte 


CALL 


EDPRNM 


ADD 


R0*R1 


i Select second random byte 


CALL 


EDPRNM 


ADD 


RO. R2 


i Use part of 


PRNM as semi-random 


MOV 


RO. -(SP) 


BIC 


#-^C6. RO 


. Select encr 


yption or decryption 



ired 



tring 



of the form: 
; Word holding byte length of buffer. 
I Note that buffer must be 512 or less 
i in length. Flag encryption by using 
i positive byte count ( 2 to 512. ). 
i Flag decryption by using negative 
; byte count (-2 to -512. ). 

i 

i Address of buffer to be encrypted 



i Save registers 



i Save the string length 
; And save the input buffer pointer 
length 
i Recover string length 
i Branch if encryption 
} If decryption, get real repeat 
i If neg. correct for ASR round down 
i Set up for desired repeat length 

i Repeat for 1/2 the string length 

i Get lie. num. for initial seed in RO 

iSeed PRN generator (-adjacent pairs) 

jLess than 2 bytes left? 

;Quit if so (odd len -> 1 byte unch. ) 

j Clean out shifting registers 



i Retrieve buffer pointer 
i And second copy 

i Randomize in range - <strlen-l> 
; Point to first random byte of pair 

.-Randomize again 
; Point to next random byte 
shift amount 

; Save EDPRNM seed for later 

j Set a semi-random shift amount 



i 
i 
i 

i 
i 
I 
i 
< 
« 
i 

€ 

i 
f 
i 

i 
4 
i 
* 
I 



TSINIT - 


— TSX s 


tartup 


EDMTH3 - 


— Encryption/d 


58 


026150 


005703 


59 


026152 


1 nndi 1 


60 






61 


026154 


151104 


62 


026156 


000304 


63 


026160 


151204 


64 


026162 


000241 


65 


026164 


006004 


66 


026166 


006005 


67 


026170 


005400 


68 


026172 


005303 


69 


026174 


000407 


70 






71 


026176 


151105 


72 


026200 


000305 


73 


026202 


151205 


74 


026204 


000241 


75 


026206 


006105 


76 


026210 


006104 


77 


026212 


005203 


78 






79 


026214 


073400 


SO 


026216 


050504 


81 


026220 


012600 


82 






83 


026222 


110412 


84 


026224 


000304 


85 


026226 


110411 


86 


026230 


000730 


87 






88 


026232 


012600 


89 


026234 


012605 


90 


026236 


012604 


91 


026240 


012603 


92 


026242 


012602 


93 


026244 


012601 


94 


026246 


000207 
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Bcryption meth 3 (swap bytes&shift bits) 



Do 



Do 



3*: 



TST R3 

nhA T *-*.* 

for encryption 

@R1,R4 

R4 

@R2i R4 

R4 

R5 

RO 

R3 

4* 

for decryption 

@R1,R5 

R5 

@R2, R5 



4*: 



this part 

BISB 

SWAB 

BISB 

CLC 

ROR 

RDR 

NEO 

DEC 

BR 
this part 

BISB 

SWAB 

BISB 

CLC 

ROL 

ROL 

INC 
Shift and rec 

ASHC 

BIS 

MOV 
put encry 

MOVE 

SWAB 

MOVB 

BR 
restore 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



Now 



; Done. 
9*: 



R5 

R4 

R3 

ombine the 

RO, R4 

R5, R4 

<SP)+, RO 

pted bytes 

R4, eR2 

R4 

R4, @R1 

2* 

reg i sters 
(SP>+, RO 
(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



Positive for encryption 

oTSTiCii It ueCrUptinq 

Set first byte without sign extend 

And put it in the high byte 

Combine it with first byte 

Always do at least one shift 

Shift once 

Get low bit into r5 

Right shifts for encryption 

Reduce count of pairs remaining 

Skip decryption stuff 



Get first byte without sign extend 
And put it in the high byte 
Combine it with the first byte 
Always do at least one shift 
Shift once 

Get high bit into R4 
Reduce count of pairs remaining 
■Cen I de>crypted bytes 

/Shift combined bytes 0/2/4 or 6 more 

/Recombine bytes 

/Recover EDPRNM seed 
back into input string 

/Store low byte at second byte place 

/Get high byte 

/Store high byte at first byte place 

/Repeat through string 



and return 



Just pop saved buffer address 
Restore registers 
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« -■- random number generator with MOD 2-^16 



TSINIT • 


— TSX s 


tartup 


EDPRNW • 

1 
2 
3 


— Pseud 


o rando 






4 






5 






6 






7 






8 






9 






10 






11 






12 


026250 




13 


026250 


010446 


14 


026252 


010546 


15 


026254 


010004 


16 


026256 


012700 


17 


026260 


104375 


18 


026262 


070400 


19 


026264 


062705 


20 


026266 


012705 


21 


026270 


010500 


22 


026272 


012605 


23 


026274 


012604 


24 


026276 


000207 



. SBTTL EDPRNW — Pseudo random number generator with MOD 2'^16 

Linear congruential pseudo-random number generator u/ith maximum repeat 
length of 65536 <2-^16). cf. Hull and Dobell and Knuth, vol 2. 



Inputs: 
RO 

Outputs: 
RO 



EDPRNW: 

MOV 
MOV 
MOV 
MOV 

EDPRNA: . WORD 
MUL 
ADD 

EDPRNC: . WORD 
MOV 
MOV 
MOV 
RETURN 



Seed value 

New PRN> should be used for next seed 

i Save registers 



R4, -<SP) 
R5, -(SP) 
RO, R4 
<PC)+, RO 
104375 
RO, R4 
<PC)+, R5 
012705 
R5, RO 
(SP)+, R5 
(SP)+, R4 



i Get seed to be multiplied 

iFetch multiplier 

^Multiplier, can be replaced 

; Multiply by A 

i Add C 

iAdditive, can be replaced 

i Return result mod 65536. as PRN 

iRestore registers 



TSINIT 
INPRNM - 

1 
P 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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. SBTTL INPRNIi — Initialize PRN generator with repeat range M 

Using the Hull and Dobell rules* determine acceptable values for 
A and C to get a repeat range of M. 

Outputs: 

EDMULA Set with first acceptable multiplier 

EDADDC Set with first acceptable additive factor 

EDMODM Set with desired repeat length 



026300 
026300 
026306 
026314 
026322 



INPRNM: 



012737 
012737 
012737 
000207 



000040 
000005 
000003 



026366 ' 
026354 ' 
026360 ' 



MOV 
MOV 
MOV 
RETURN 



#5, EDMULA 
#3, EDADDC 



i Get repeat length to cover Pro ID 
> Use first valid A 
;And first valid C 



I 



TSINIT • 


— TSX s 


tartup initializ 


EDPRNM ■ 


— Generate pseudo-rando 


1 
2 






J 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 


026324 




17 


026324 


010446 


18 


026326 


010546 


19 


026330 


020037 026366 ' 


20 


026334 


103405 


21 


026336 


010005 


22 


026340 


005004 


23 


026342 


071437 026366' 


24 


026346 


010500 


25 


026350 


010004 


26 


026352 


070427 


27 


026354 


061125 


28 


026356 


062705 


29 


026360 


033031 


30 


026362 


005004 


31 


026364 


071427 


32 


026366 


000400 


33 


026370 


010500 


34 


026372 


012605 


35 


026374 


012604 


36 


026376 


000207 


37 






38 






39 






40 






41 






42 






43 






44 


026400 




45 


000000 




46 




000001 
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in specified range M 

. SBTTL EDPRNM — Generate pseudo-random number in specified range M 

» INPRNM MUST BE CALLED BEFORE FIRST SEED IS PASSED TO THIS ROUTINE.'}.'} * 

Using linear congruential method <cf. Hull and Dobell)> generate 
pseudo-random number using seed passed in RO. Return new PRN in RO. 



Inputs: 
RO 

Outputs: 
RO 



Seed value., must be in range to M (EDMODM) 

New pseudo-random number* should be used for next seed 



EDPRNM: 



1*: 

EDMULA: 

EDADDC: 

EDMODM: 



MOV 

MOV 

CMP 

BLO 

MOV 

CLR 

DIV 

MOV 

MOV 

MUL 

. WORD 

ADD 

. WORD 

CLR 

DIV 

. WORD 

MOV 

MOV 

MOV 

RETURN 



R4, -(SP) 
R5, -<SP) 
RO, EDMODM 
1* 

RO, R5 
R4 

EDMODM, R4 
R5, RO 
RO, R4 
(PC)+,R4 
25173. 
(PC)+, R5 
13849. 
R4 

(PC)+, R4 
256. 
R5, RO 
<SP)+, R5 
(SP)+, R4 



Save R4 and R5 

Is seed in range to EDMODM? 

Branch and proceed if so 

Set up to divide it by EDMODM 

Set up for divide 

Divide it 

And use remainder as seed 

Get current seed ready to be multiplied 

Multiply by chosen A 

Replace at run-time with 5 

Add in C 

Replace at run-time with 3 

Clear high word for division 

Perform mod M 

Replace at run-time with 32. 

Return remainder 

Restore R4 and R5 



. IFF 
DSKBUF: 
. ENDC 



^Assemble if protection code not included 
; Define dummy DSKBUF global symbol 



iNE, PROCID 

iNE, PROCID 

Address of real top of TSINIT, including PRO init code 

PROITP: 

. CSECT TSXEND 
. END 
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AHEND = 

ALBFX 

ALCHRB 

ALCOVL 

ALCSLO 

ALCWRK 

ALOCBF 

AREA 

AUTHAN= 

BADDEV 

BADLIN 

BADOPN 

BASMAP= 

BDLMSG 

BDSPOP 

BDVMSG 

BOSF 

BRKPT = 

BYTES 

CA*BLK= 

CA*DVU= 

CA*HBL= 

CA*HFL= 

CA*HSH=: 

CA*UBL= 

CA*UFL= 

CA*WCT= 

CCAFLG 

CCATST 

CCBHD = 

CCLNAM 

CCLSAV= 

CC**SZ= 

CDX*DH= 

CDX*DL== 

CDX*DZ= 

CDX*VH= 

CD**SZ= 

CFHMSG 

CHAIN = 

CHKCLD 

CHKMEM 

CHNSIZ= 

CKLIN 

CLDEVX= 

CLEOFS= 

CLHEAD= 

CLINCP= 

CLINIT 

CLKRTI= 

CLKVEC= 

CLKIOO 

CLORSZ= 

CLOTIR= 

CLSIZE= 

CLSTS = 

CLTOTL= 



G 
G 
G 
G 
G 
G 
G 



»•*■*•*»•»• Q 

012536R 

00/562R 

022130R 

012316R 

007526R 

011652R 

OOOOOOR 

#•»•»•*#« G 

010170R 

000764R 

001137R 

#*»•*#* Q 

001055R 

001305R 

001017R 

001342R 

#««««« G 

002602R 

*if-«-*## G 

*•»»*♦» 

***♦*» 

000040R 
025144R 
#■»***# G 
000102R 
#**■*■»«■# G 
#■»**## 

#•?<■< Hf- # # 
#■»•*•*## 
****** 
****** 
****** 

001510R 

****** G 

011372R 

025104R 

****** G 

006644R 

****** G 

****** G 

*•»**** G 

****** G 

013444R 

****** G 

****** G 

000042R 

****** 

****** 

****** 

****** 

****** 



CLVERS= 
nnp r.i «fpw= 



G 
G 
G 
G 
G 
G 



002 
002 
002 
002 
002 
002 

002 
002 
002 

002 
002 
002 
002 

002 



002 

002 

002 



002 

002 
002 

002 



002 



002 



G 
G 
G 
G 
G 



CL»EPP= 

CL*EPS= 

CL*LEN== 

CL*LIX= 

CL«OPT= 

CL*ORA= 

CL*ORB= 

CL*ORE= 

CL*0R0= 

CL*ORP= 

CL*ORS= 

CL*STA= 

CL*VER= 

C0NFG2= 

C0NFIG= 

CONSPC 

COSRT 

CO*DEF= 

CO*FF = 

CO*TAB= 

C0*8BT= 

CRLF 

CSHALC= 

CSHBAS= 

CSHBFP= 

CSHBUF 

CSHDEV= 

CSHDVN= 

CSHOVF 

CSHSIZ= 

CSHVEC= 

CS*ENT= 

CS*NMX= 

CS*OPN= 

CURDEV 

CURNAM 

CVTDVU 

CW*BTH= 

CW*ESP= 

CW*FB = 

CW*FGJ= 

CW*GDH= 

CW*LGS= 

CW*PRO= 

CW*QBS== 

CW*USR== 

CW*XM = 

CW*50H= 

CXTALC 

CXTBAS= 

CXTBUF= 

CXTPAG= 

CXTPDR= 

CXTRMN= 

CXTSIZ= 



****** G 

**«■*** Q 

****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
»*#*## G 
****** G 
000002 
****** G 
****** G 
001237R 
002702R 
****** G 
****** G 
****** G 
****** G 
001067R 
****** G 
****** G 
****** G 
024104R 
****** G 
****** G 
00321 IR 
****** G 
****** G 
****** G 
****** 
****** G 
000144R 
000146R 
011476R 
****** G 
****** G 
****** G 
#*##** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
015646R 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 



CXTWDS= ****** G 



EDADDR 025352R 



002 

002 



002 



OO'c 



002 



002 
002 
002 



002 



C. DEVQ= 

C. SBLK= 

C1DEVX= 

DATIMH= 

DATIML= 

DCCSIZ= 

DC**SZ= 

DEVSIZ= 

DEWEC 

DFJMEM= 

DHBFSZ= 

DHINIT 

DHLPRM 

DHOINT= 

DIfCL = 

DI*DU = 

DI*LD = 

DI«MU = 

DI*PI = 

DI*TT = 

DI*XL = 

DMYDEV= 

DM*CSR= 

DM*LSR= 

DOHNLC 

DSKBUF 

DSTBLK 

DS*ABT= 

DS*DIR= 

DS*NRD= 

DS*SFN= 

DS*VSZ= 

DTLX = 

DTYPE = 

DVFLAG= 

DVFLBS 

DVFLND 

DVSTAT= 

DV*FLG= 

DV*NAM= 

DV**SZ= 

DW**SZ= 

DX*DMA= 

DX*EBA= 

DX*IBH= 

DX*MAP= 

DX«MPH= 

DX*NCA= 

DX«NHM= 

DX*NMT= 

DX*NRD= 

DX*NST= 

DZINIT 

DZOINT= 

EDADDC 



****** G 
****** G 
****** G 
****** G 
****** G 
****** 
****** G 
****** G 
004652R 
****** G 
****** G 
005260R 
005260R 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
020542R 
025660RG 
0001 12R 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
000336R 
000516R 
****** G 
000002 
000000 
000004 
*##»** G 
****** G 
****** G 
****** G 
*«*««* G 
****** G 
****** G 
****** G 
****** G 
****** 
****** G 
005260R 
****** G 
026360R 



002 



002 
002 



002 
002 
002 



002 
002 



002 
002 



EDMODM 

EDMTH2 

EDMTH3 

EDMULA 

EDPRNA 

EDPRNC 

EDPRNM 

EDPRNW 

EMMAP = 

EMTENT= 

ENTVEC 

ERHINS 

ERHMSG 

ERHNDV 

ERRLOG= 

EXCBUF= 

EXTLSI= 

FC*LBN= 

FC**SZ= 

FETDEV 

FF«*SZ= 

FILBLK 

FMEMHI 

FMEMLO 

FNDHRB 

FOR CEO 

FORK = 

FPTRAP= 

FQ**SZ= 

FREIOQ= 

FREPGS= 

FRKGEN= 

FRKINI= 

FSTDL = 

FSTIOL= 

FW**SZ= 

GENTOP= 

GETHNH 

GETHNL 

GETLIC 

GETMAP 

GETDVL 

GETSRT 

GTBYT = 

GTLIN 

HANDSK= 

HANENT= 

HANMAP 

HANNAM 

HANPAR= 

HANRCB= 

HANRCO= 

HANSIZ= 

HANUMP 

HANXIT= 



G 

G 
G 



026366R 

025762R 

026046R 

026354R 

026260R 

026266R 

026324R 

0262 50R 

****** G 

****** G 

004464R 

001721R 

001552R 

001616R 

****** G 

****** 

000001 

**#**# 

****** 

000130R 

****** G 

000142R 

000134R 

000136R 

021364RG 

011574R 

****** G 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

017634R 

016320R 

025652R 

02201 OR 

0231 16R 

023472R 

****** G 

000176R 

****** G 

****** G 

021242R 

000200R 

****** G 

****** G 

****** G 

****** G 

021316R 

****** G 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 



002 

002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 

002 



002 
002 



002 



HANXMR 

HF*LIn= 

HF*MC = 

HF*RIE= 

HF*TIE= 

HF*TSB= 

HGENFL 

HIMAP = 

HLERR 

HMAP 

HN2BIG 

HSGER 

HVEND 

HVTBL 

HV*DMY= 

HV«ID = 

HV*VER= 

HV**SZ= 

H. CSR = 

H. DSTS= 

H. DVSZ= 

H. GEN = 

H. INS = 

H. SIZ == 

ICONFG 

IDADDR= 

IDSFLG= 

II**SZ= 

ILSW2 = 

INDDBL= 

INDDBS=» 

INDFIL= 

INDINI 

INDNAM 

INDOPN 

INDSAV= 

INDTSV= 

INICLK 

INIDEV 

INIJMP= 

INIOVL 

INISTP 

INITGO 

INITOP 

INMXV = 

INPRNM 

INRECV= 

INSCHK 

INSCKl 

INSCK2 

INSTBL= 

INSTBN= 

INTEN = 

INTMX1= 

INTSND= 

INTSSZ= 

INTSTK= 



G 
G 
G 
G 



021370RG 

****** ti 

****** 

****** 

****** 

****** 

000240R 

****** G 

020472R 

000126R 

002335R 

002027R 

000336R 

000322R 

000001 

000000 

000002 

000004 

****** 

****** 

****** 

****** 

****** 

****** 

000242R 

173600 

****** 

****** 

****** 

****** 

****## 

****** 

014110R 

000220R 

003262R 

****** G 

****** G 

006524R 

006672R 

****** G 

0043 12R 

004134R 

005452RG 

025350RG 

****** G 

026300R 

****** G 

025354R 

016602R 

016760R 

****** G 

****** 

****** 

****** 

**#«** 

****** 

****** 



002 



G 
G 
G 
G 

e 

6 



G 
G 
G 
G 
G 
G 



6 
G 
G 



002 

002 
002 
002 
002 
002 
002 



002 



002 
002 
002 



002 
002 

002 
002 
002 
002 

002 

002 
002 
002 



G 
G 
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I 
i 



INVEC = 


**•***» G 




LOKVEC= 


*»**»* 


G 


MPAR16= 


*»#*#* 


G 




ODTSTA 


000234R 


002 


PMPAR = 


****** G 




TDMAD — 

A 1.^1 ini — 


:^ju^^M.ti. (^ 




LQIvjAD = 


««Ji.4t.«.4i. 




MD Tl je-T_ 

1 11 A V i^i. — 








nrxTTno 


f\r\r\r\rs/.D 


WWfc 


P,\'AME = 


****** \!f 




IOPAGE= 


#*■***# G 




LOTBUF= 


*#**## 


G 


MPPHY = 


****** 


G 




ODTTRP=: 


****** G 




PPTERM 


000262RG 


002 


IOQSIZ= 


*•**•*## G 




LOTEND= 


#**##•»• 


G 


MR**SZ= 


****** 


G 




OORCLO 


02271 OR 


002 


PROASM= 


000001 G 




IOTIMR= 


»*•*#»* G 




LOTSIZ= 


****** 


G 


MSGBAS= 


****** 


G 




OORCSH 


022730R 


002 


PROBUF 


0001 50RG 


002 


JCXPGS= 


***•♦#«• G 




LOUTIR= 


****** 


G 


MTSXDV 


024544R 


002 


DOR DBG 


022720R 


002 


PROCID= 


000001 




JMPO = 


»#**»» G 




LOWEND 


0007 54R 


002 MUXVEC 


005260R 


002 


OORDMP 


022740R 


002 


PROFLG= 


**««#* G 




JM**SZ= 


#**■*»» G 




LOWOVL 


000746R 


002 MU*TXT= 


****** 


G 




OORLOK 


022522R 


002 


PROHAN= 


****** 




JSWLOC= 


#*•*•**« G 




LSTDL = 


****** 


G 


MVSIZ = 


****** 


6 




OORMIO 


022700R 


002 


PROINI= 


****** G 




KEYSEG 


004522R 


002 


LSTHL = 


****** 


G 


MW*LNK= 


#««#** 


G 




OORMSG 


022544R 


002 


PROITP 


026400RG 


002 


KMNBAS= 


•»#•*•**# G 




LSTLIN= 


****** 


G 


MW**SZ= 


##♦■«.*# 


G 




OORPLS 


022620R 


002 


PROLIN= 


****** G 




KMNCHN= 


«!«•*■»«# G 




LSTMX = 


****** 


G 


MXCSR = 


****** 


G 




OORSLE 


0226 52R 


002 


PRONOP= 


****** G 




KMNHI = 


#•<;{•*#* G 




LSTPL = 


«*«*** 


G 


MXDTR = 


****** 


G 




OORSPL 


0224 52R 


002 


PROSIZ= 


****** G 




KMNNAM 


000072R 


002 


LSTSL = 


****** 


G 


MXJADR= 


*###** 


G 




00RSP2 


0225 12R 


002 


PRTDEC 


025230R 


002 


KMNPGS= 


#«*-*»» 




LSWPBK= 


****** 


G 


MXJMEM= 


*»*#*# 


G 




OORSWP 


022642R 


002 


PRTOCT 


025160R 


002 


KMNSTK= 


»•<«*•*## G 




LSWiO = 


****** 


G 


MXLNT = 


****** 


G 




OORUSR 


022436R 


002 


PRTR50 


025274R 


002 


KMNSTR= 


*•♦*•*■«■# G 




LSW3 = 


****** 


G 


MXLPR = 


*##**« 


G 




OORWIN 


022662R 


002 


PSW 


****** G 




KMNTOP= 


»•*■*-*** G 




LSW5 = 


****** 


G 


MXRBUF= 


****** 


G 




OOXFIN 


02301 OR 


002 


PTBYT = 


****** G 




KPARO = 


*•♦**■»■# G 




LSW6 = 


****** 


G 


MXTYPE= 


****** 


G 




OOXNO 


0227 50R 


002 


PTWRD = 


****** G 




KPAR5 = 


#■»•»*»* G 




LTTPAR= 


****** 


G 


MXVEC = 


****** 


G 




OOXYES 


022756R 


002 


PVSPBL= 


****** G 




KPAR6 = 


#«**«* G 




LXCL = 


****** 


G 


NDL 


****** 


G 




OPNCHN 


024322R 


002 


QBUS = 


****** G 




KPAR7 = 


#«*•*»* G 




MAPALC 


016006R 


002 NDVRCB= 


****** 


G 




OPNKMN 


013142R 


002 


RBD 


000062 




KPDRO = 


«#•»■*## G 




MAPPAR= 


****** 


G 


NEDCHR= 


****** 


G 




OPNRSF 


010216R 


002 


RBR 


****** G 




LCDTYP= 


#*♦•♦■»•* G 




MAPSIZ= 


****** 


G 


NEXMSG 


002223F 


t 


002 


OPNSWP 


007564R 


002 


RC«*SZ= 


**#»#* G 




LCLUNT= 


*»*•*## G 




MAPSYS= 


****** 


G 


NFRESB= 


****** 


G 




OPTOVL 


022274R 


002 


RDB 


****** G 




LDDEVX= 


•«•**-**■» G 




MAXDEV= 


****** 





NFSBLK 


000020R 


002 


OSEND 


000744R 


002 


RDBEND= 


****** G 




LDHAND 


016430R 


002 


MAXOVL= 


000031 




NIOL = 


****** 


G 




OSLAST 


000744R 


002 


RDERR 


003066R 


002 


LDHD1B= 


#•<!«•»•«• « G 




MAXSLO= 


****** 


G 


NLINES= 


****** 


G 




OSTABL 


0005 16R 


002 


RDINT = 


****** G 




LDHB1P= 


#•»•*•*»* G 




MA«SYS= 


****** 


G 


NMSNMB= 


****** 


G 




OSZ 


000056 




REDUCE 


002551R 


002 


LDHB2B= 


#*»■»#* G 




MB**SZ= 


****** 


G 


NMXHAN 


000124F 


[ 


002 


OS*FLG= 


000002 




RELOC = 


****** G 




LDHNHI 


017672R 


002 


MEMINI 


015230R 


002 NOCCL 


001452R 


1 


002 


OS*OVL= 


000004 




REQMIS 


001070R 


002 


LDHNLO 


017504R 


002 


MEMLIM 


000236R 


002 NOCLDK 


002077F 




002 


OS*SIZ= 


000000 




RID 


000060 




LDREAD 


021072R 


002 


MEMPAR= 


****** 


G 


NOCSRR 


001670F 




002 


OS**SZ= 


000006 




RLBF 


000230R 


002 


LDVERS= 


#•«•*•**■«• G 




MEMTST 


015334R 


002 NDKMON 


001411F 




002 


OTMXV = 


****** G 




RLBFND 


000232R 


002 


LHIRBA= 


#•»**#•»• G 




MEM256= 


****** 


G 


NDODT 


002272F 




002 


OTRECV= 


****** G 




RMNPDR= 


****** G 




LHIRBB= 


#»•*-*## G 




MF*CM == 


****** 


G 


NOSYDV 


002442F 




002 


OVLBAS 


000140R 


002 


RMON = 


****** G 




LHIRBC= 


»•«#■*#•«■ G 




MF*CS = 


****** 


G 


NOTLIC 


025556R 




002 


OVLBLD 


021610R 


002 


ROMBUF 


025722R 


002 


LHIRBE= 


#•*■*-**# G 




MF*LE = 


****** 


G 


NOXM 


015626F 




002 


OVLEND 


022436R 


002 


RPRVEC= 


****** G 




LHIRBG= 


#•*•*•*#* 




MF*LIN= 


****** 


G 


NSCP = 


****** 


G 




OVLLST 


022346R 


002 


RSFBLK= 


****** G 




LHIRBP= 


*•♦***■«• G 




MHNSIZ= 


****** 


G 


NSIP = 


****** 


G 




DVLPOS 


021400R 


002 


RSFERR 


001175R 


002 


LHIRBS= 


*•*•*•*** G 




MH*LPR= 


****** 


G 


NSL 


****** 


G 




OVLTRY 


023020R 


002 


RSR 


****** 




LIGNUM 


025720R 


002 


MH*PBR= 


****** 


G 


NSPLBL= 


****** 


G 




OVRADD= 


****** G 




RSZ 


000052 




LINBUF= 


»■♦♦*** G 




MH«SCR= 


****** 


G 


NSPLDV= 


****** 


G 




0. ADR = 


****** G 




RTFTCH 


024770R 


002 


LINCHK 


005260R 


002 


MINCTR= 


****** 


G 


NSPLFL= 


****** 


G 




0. BLK = 


****** G 




RTMNVC 


000046R 


002 


LINEND= 


**•*•*#* G 




MIOBHD= 


****** 


G 


NUMCCB= 


****** 


G 




0. PAR = 


****** G 




RTNKM 


015616R 


002 


LININI 


005262R 


002 


MIODBG= 


****** 


G 


NUMCDB= 


****** 


G 




0. SIZ = 


****** G 




RTTRP4 


000044R 


002 


LINIR = 


*•*(■*•*«* G 




MIOFLG= 


****** 


G 


NUMDCD= 


#*#*»* 


G 




PARENL= 


****** G 




RTVDEF 


0003 14R 


002 


LINSIZ= 


#■*■«••*## G 




MIONWB= 


****** 


G 


NUMDEV= 


****** 


G 




PARSET 


016316R 


002 


RTVEND 


000322R 


002 


LINSPC= 


«*•*•*»•»• G 




MIOWHD= 


**##*« 


G 


NUMFRK= 


****** 


G 




PHSOVF 


0026 12R 


002 


RTVER 


000264R 


002 


LINTYP 


005340R 


002 


MI*LNK= 


****** 


G 


NUMIOQ= 


****** 


G 




PHYMEM= 


****** G 




RTVPTR 


0001 56R 


002 


LMXLN = 


#^»-*«* G 




MI*SBP= 


****** 


G 


NUMRDB= 


****** 


G 




PIDPTR= 


****** G 




RTV*SZ= 


000003 




LMXNUM= 


#■»♦■*** G 




MI**SZ= 


****** 


G 


NXIVMH= 


****** 


G 




PIDRIV= 


****** G 




RT*BAS= 


****** G 




LODINI 


004160R 


002 


MMENBL= 


****** 


G 


NXMMSG 


002165R 




002 


PIDVEN 


005200R 


002 


RT$NAM= 


****** G 




LODOVL 


023162R 


002 


MONFQH= 


****** 


G 


ODTBAS= 


001000 






PIHAN = 


****** G 




RT*SKP= 


****** G 




LOKBAS= 


##*•*## G 




MONVEC= 


****** 


G 


ODTBLK 


00021 OR 




002 


PIINSZ= 


001274 




RT*TOP= 


****** G 




LOKCSH= 


#■*■»**# G 




MPARFL= 


****** 


G 


ODTFLG 


000034R 




002 


PISRT 


000244RG 


002 


RT*UPD= 


000001 




LOKMEM= 


#****» G 




MPARO = 


****** 


G 


ODTRDM 


00240 IR 




002 


PMCELS= 


****** G 




RT*VER= 


000000 
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RT**SZ= 
RT40 

r\ i %jw 

RT51 

RT51B 

RT51C 

RT51X 

RT52 

RT53 

RT54 

RT55 

R50CHR 

R50CL = 

R50CL0= 

R50CL7= 

R50CSH== 

R50C1 = 

R 50010= 

R 50017= 

R50LD = 

R50L0K= 

R50LS = 

R50MSG= 

R500DT= 

R50PI = 

R50SY = 

R SOT 10= 

R50TT = 

R50USR= 

R50VM = 

R50WIN= 

SAVBLK 

SB**SZ= 

SCHED = 

SCPFHD= 

SDANAM= 

SDCB = 

SDCBSZ= 

SDCHAN= 

SDDVU = 

SDNAME= 

SEGCHN= 

SETCHN 

SETJSZ 

SETMIO 



•»*•»■*#* G 

000264R 

0G0267R 

000272R 

000300R 

000303R 

00027 5R 

000306R 

00031 IR 

0003 14R 

0003 17R 

003347R 

012240 

012276 

012305 

012700 

013630 

013666 

013675 

045640 

046543 

046770 

052077 

057164 

062550 

075250 

077167 

100040 

103112 

105610 

110466 

000050R 

*•»**#* Q 

#■!<•»■»•»•■«• G 

#■)(•*•*## 

02441 OR 
016172R 
021376R 



G 
G 
G 
G 
G 
G 
G 
G 



SETSY 
002 SETUMP 
002 SETVEC 
002 SFCB = 
002 SFCBFH= 
002 SFCBND= 
002 SFCBSZ= 
002 SG*ELG= 
002 SG*IOT= 
002 SG*MMU= 
002 SG*MTM= 
002 SG*MTS= 
SG*PAR= 
S0*TSX= 
SHRRCB= 
SHRRCN= 
SIZERR 
SKPDEV 
SLTSIZ== 
SMRSIZ= 
SNMSHD= 
SPLANM= 
SPLBLK= 
SPLCHN= 
SPLCLD 
SPLDEV= 
SPLDVN= 
SPLINI 
SPLNB = 
SPLND = 
SPNEED 
002 SP**SZ= 
SRTOVF 
SRTSIZ= 
SROMMR= 
SR3FL0= 
SR3MMR=: 
SS 

SSEND = 
STA 

STDVTB 
STHNPV 
002 STK 
002 STKLVL= 
002 SVERR 



024600R 
0046 50R 
0O5024R 
****■»•# Q 
###**■«■ G 

###### 

****** 

****** 

****** 

****** 

**«**# 

**«#** 

****** 

****** 

0251 24R 

000160R 

****** G 

****** 

**#*»« 

**##*# 

****** 

****** 

011306R 

****** G 

****** G 

010522R 

#**### G 

****** G 

010142R 

****** G 

0031 21 R 

****** G 

****** 

****** 

****** 

****** 

****** 

000040 

017374R 

020400R 

000042 

****** G 

002745R 



002 SWDBLK= ****** G 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



G 
G 
G 
G 
G 



G 
G 
G 
G 
G 



nnfD ei.iDr*LiM- 



002 



002 
002 



002 

002 

002 
002 



002 
002 



002 



SWPJOB= 

SWPPOS= 

SYINDX= 

SYNAME= 

SYSDAT= 

SYSGEN= 

SYSMAP= 

SYSUPD= 

SYSVER= 

SYTIMH= 

SYTIML= 

SYUNIT= 

TAKOVR 

TIOBAS= 

TIOVEC= 

TK1SEC= 

TK1VAL= 

TK3SVL= 

TK5VAL= 

TOOBIG 

TOP MEM 

TRCSET 

TRPIO = 

TRP14 = 

TRP20 = 

TRP24 = 

TRP250= 

TRP34 = 

TRP4 = 

TSEMT = 

TSEXEC= 

TSGEN = 

TSINIT 

TSR 

TSTWRD= 

TSXHD 

TSXRUN 

TSXSAV 

TSXSIT= 

TSXSIZ 

TTINCP= 

UBUSMP= 



! ****** G 

: ****** G 

■■ ****** G 

■ ****** G 

■ ****** G 

■ ****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 

003420R 
****** G 
##«*** G 
*«*#*# G 
****** G 
****** G 
****** G 
002507R 
000132R 
015606R 
****** G 
****** G 
****** G 
****** G 
***»*# G 
****** G 
****** G 
****** G 
*#*#*# G 
****** G 
OOOOOORG 
****** G 
000110 
000754R 
002000R 
000062R 
****** G 
003000R 
****** G 
****** G 



002 



002 
002 
002 



00£ 



002 
002 

002 



UCLBLK= 

uCLDAT= 

UCLINI 

UCLNAM= 

UCLOPN 

UC**SZ= 

UDDRO = 

UEXINT= 

UEXRTN= 

UK**SZ= 

UMODE = 

UMRADR= 

UMSYTP= 

UNIBUS= 

UPARO = 

UPAR6 = 

UPAR7 = 

UPDRO = 

UPDR6 = 

UPMODE= 

USRBAS= 

US**SZ= 

VBUSTP= 

VCSHNB= 

VDBFLG= 

VDFMEM= 

VF«LIN= 

VF*MR = 

VF*RE = 

VF*RIE= 

VF*SC = 

VF*TIE= 

VHIMEM= 

VHINIT 

VHLPRM 

VHOINT= 

VH*CSR= 

VH*LCR= 

VH*LPR= 

VINABT= 

VLDSYS= 

VMAXMC= 

VMIOBF= 

VMIOSZ= 



G 
G 



■ ****** G 

: ***««« Q 

014652R 

: ****** G 

0033 12R 
****** G 
****** G 
****** G 
****** G 
****** G 
****** 
****** 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
005260R 
005260R 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 



VMLBLK 
VMSCHR 
002 VMXCSH 
VMXMON 
002 VMXMRB 
VMXMSG= 
VMXSF = 
VMXSFC= 
VMXWIN= 
VNCSLO= 
VNCXOF= 
VNCXON= 
VNFCSH= 
VNGR = 
VNUIP = 
VNUMDC=! 
VPAR5 = 
VPAR6 = 
VPLAS = 
VPMSIZ= 
VSLEDT= 
VSWPFL= 
VSWPSL= 
VSYDMP= 
VUCLMC= 
VUXIFL= 
VU*CL = 
WINBAS= 
WRKBUF 
WRKSIZ 
XMVBAS 
ZCLR = 
*DEAD = 
002 *FORM = 
002 *HARD = 
*MEMSZ= 
*NOIN = 
*OVRH = 
*PHONE= 
*SXON = 
«TAB = 
*SBIT = 
... VI = 
. . . V2 = 



****** 
****** 
****** 
****** 



G 
r\ 

G 
G 



= ****** G 



G 
G 



G 
G 



****** 
****** 
****** G 
****** G 
****** G 
«****# G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** 
****** 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
****** G 
000152R 
0001 54R 
000122R 
****** G 
****** 
****** 
****** 
*««*## 
****** G 
****** G 
****** 
****** 
****** 
****** 
000003 
000027 



e 

G 
G 
6 



G 
G 



002 
002 
002 



. ABS. 

TSINIT 
TSXEND 
Errors 



000000 
000000 
026400 
000000 
detected: 



000 
001 
002 
003 




<RW. I, GBL, ABS, OVR) 
(RW, liLCL, REL, CON) 
<RW, I,GBL>REL, OVR) 
(RW, I, GBL, REL, OVR) 
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Work file reads: 
Work file writes: 
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